Pages

Showing posts with label read registry using vbscript. Show all posts
Showing posts with label read registry using vbscript. Show all posts

Thursday 2 August 2012

Read Registry - VBScript


Set oRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\./root/default:StdRegProv")
sBaseKey = "SOFTWARE\"
iRC = oRegistry.EnumKey(&H80000001, sBaseKey, arSubKeys)
For Each sKey In arSubKeys

if skey="JNJ" then
msgbox "yes"
end if
next