## Description
# Enumerate Environment Variables
# VB code sample courtesy of MS Corp.    
{
	-name test VBScript
	-start 
	-stop

	main()
	Print("Returned value is: '%TG.COMMAND_RETURN%'")
}


Function main()

	On Error Resume Next
	strComputer = "."
	Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
	Set colItems = objWMIService.ExecQuery("Select * from Win32_Environment")
	For Each objItem in colItems
	    WCCtrl.Print "Description: " & objItem.Description
	    WCCtrl.Print "Name: " & objItem.Name
	    WCCtrl.Print "System Variable: " & objItem.SystemVariable
	    WCCtrl.Print "User Name: " & objItem.UserName
	    WCCtrl.Print "Variable Value: " & objItem.VariableValue
	    WCCtrl.Print ""
	Next

	main = 0
	
End Function