Link to home
Start Free TrialLog in
Avatar of itbabe
itbabe

asked on

I need a vbscript function that can return a value if a registry keys exists on a remote machine.

how can I achieve this ?
Avatar of prashanthd
prashanthd
Flag of India image

Try the following

regards
Prashanth
HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\RealNetworks\RealPlayer"
If oReg.EnumKey (HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys) = 0 Then
    WScript.Echo "Exists"
Else
    WScript.Echo "Not Exists"
End If

Open in new window

Hope this helps:
Dim var, strComputer 
strComputer = 127.0.0.1 
var = RegRead("\\" & strComputer & "\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "ProgramFilesDir") 
MsgBox "Program files are in: " & var

Open in new window

ASKER CERTIFIED SOLUTION
Avatar of prashanthd
prashanthd
Flag of India image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial