LISTING 2: WMI Script That Uses Alternate Credentials

Const wbemImpersonationLevelImpersonate = 3

strComputer = "foo"
strUser = "Administrator"
strPassword = "bXk23s8w"

' BEGIN CALLOUT A
Set objSWbemLocator = _
	CreateObject("WbemScripting.SWbemLocator")
objSWbemLocator.Security_.ImpersonationLevel = _
	wbemImpersonationLevelImpersonate
Set objSWbemServices = _
	objSWbemLocator.ConnectServer(strComputer, _
	"root\cimv2", strUser, strPassword)
' END CALLOUT A

Set colSWbemObjectSet = _
	objSWbemServices.ExecQuery("SELECT * FROM “ _
	& “Win32_OperatingSystem")

For Each objSWbemObject In colSWbemObjectSet
	WScript.Echo "Name:    " & objSWbemObject.Name
	WScript.Echo "Caption: " & objSWbemObject.Caption
BEGIN COMMENT
	' Insert additional Win32_OperatingSystem properties here.
END COMMENT
Next