Shahir
Tue Oct 21 09:40:46 CDT 2003
Here is what I have done in the past using WMI within a loop:
'Outside of the loop of course
Const HKEY_LOCAL_MACHINE = &H80000002
strComputerName = "computername"
strRemoteUserName = "domain\username"
strRemotePassword = "password"
'WMI - Setup the objects required for WMI
Set objWmiSvc = objWmiLocator.ConnectServer
(strComputerName,"root\default", strRemoteUserName, strRemotePassword)
ObjWmiSvc.Security_.impersonationlevel = 3
Set objRegistry = objWmiSvc.Get("StdRegProv")
'WMI - Setup the location of the key and the name of the key
strADBaseKey = "SOFTWARE\Blah\Blah\"
strADKeyValue = "CYA"
'WMI - Query the remote registry
readADlRC = objRegistry.GetStringValue(HKEY_LOCAL_MACHINE, strADBaseKey,
strADKeyValue, strADRetKeyValue)
'WMI - The following will run only if the Key exists and its value is "1"
If ((readADlRC = 0) AND (strADRetKeyValue = 1)) Then
Do Something
Else
Wscript.Echo "ERROR!!!"
End If
Note that the strADRetKeyValue will be the value of CYA at
"HKEY_LOCAL_MACHINE\SOFTWARE\Blah\Blah\".
You can also set registry values using the
objRegistry.SetStringValue(HKEY_LOCAL_MACHINE, strADBaseKey,
strADKeyValue, strADRetKeyValue)
Refer to the WMI documentation for more information.
Shahir
"Phil Offield" <philo@libety.edu> wrote in message
news:Omoe810lDHA.2444@TK2MSFTNGP09.phx.gbl...
> All,
>
> I am looping thorugh the computer objects in a Domain. Within the loop I
> need to bind to each maching and read the registry. I would like to
discern
> the status of the remote machine before attempting to bind to it. Does
> anyone have any suggestions?
>
> I am assuming that the IADS computerstatus can't be used based on previous
> posts. If this works can someone point me toward an example?
>
> Otherwise any suggestions would help.
>
> Thanks in advance
> PO
>
>