LISTING 1: Scriptomatic-Generated VBScript Code

On Error Resume Next
strComputer = "."
Set objWMIService = _
	GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
	("Select * from Win32_Environment",,48)
For Each objItem in colItems
	WScript.Echo "Caption: "        & objItem.Caption
	WScript.Echo "Description: "    & objItem.Description
	WScript.Echo "InstallDate: "    & objItem.InstallDate
	WScript.Echo "Name: "           & objItem.Name
	WScript.Echo "Status: "         & objItem.Status
	WScript.Echo "SystemVariable: " & objItem.SystemVariable
	WScript.Echo "UserName: "       & objItem.UserName
	WScript.Echo "VariableValue: "  & objItem.VariableValue
Next