'to read HKEY Local Machine registry
const HKEY_LOCAL_MACHINE = &H80000002
'prompt for the machine name to input for scanning, the in front part is the prompt and behind one is for Title
strComputer = ""
Set oReg=GetObject( _
"winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
'registry path
strKeyPath = "software\citi\agent"
'registry Value Name
strValueName = "redirect"
'value that it is going to read
oReg.getstringvalue _
HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
'show with msgbox for the result
MsgBox (strComputer &" CITI agent Status is " & strValue)
0 comments:
Post a Comment