WMI Accessing Remote Registry

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

WMI Accessing Remote Registry

Logged in as: Guest

arrSession:exec spGetSession 2,2,1173

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> WMI Accessing Remote Registry
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

WMI Accessing Remote Registry - 7/23/2004 6:31:24 AM

wraezor

Posts: 1
Score: 0
Joined: 7/23/2004
From: Canada
Status: offline

Hey folks,

I'm having trouble with some VBS. I'm trying to retrieve certain values from a remote registry, using WMI. I didn't start from scratch, but am attempting to modify some code I found on TechRepublic, for the same purpose.

I'll post the code here...

'sMachine, user, & pass have valid values already

Set oLocator = CreateObject("WbemScripting.SWbemLocator")
Set oService = oLocator.ConnectServer(sMachine, "Root\DEFAULT", user, pass)
If Err.Number <> 0 Then
wscript.echo sMachine & "; Error " & Err.Number & ";" & Err.Description
Err.Clear
Else
Set oRegistry = oService.Get("StdRegProv")
aSubkeys = GetSubKeys(sMachine, "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")

For Each Subkey In aSubkeys
Err.Clear
sPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & Subkey

'***** HERE is where the problem is.  This EnumValues method
'***** turns the last two arrays from uninstantiated to null,
'***** rather than populating them.

oRegistry.EnumValues HKEY_LOCAL_MACHINE, sPath, aValueNames, aValueTypes

'***** HERE is where the error is raised.  Says
'***** UBound has a Type Mismatch.

For iLoop=0 to UBound(aValueNames)
If aValueNames(iLoop) = "DisplayName" Then
oRegistry.GetStringValue HKEY_LOCAL_MACHINE, sPath, aValueNames(iLoop), sDisplayNameValue
oLogFile.WriteLine sDisplayNameValue
End If
Next
Next
Set oRegistry = Nothing
End If

Any glaring errors?

Thanks,

Wraezor