Read Registry from Local or remote Machine

'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)