Dim Computername, strKeyPath, StrValueName

const HKEY_LOCAL_MACHINE = &H80000002

ComputerName = Inputbox("Please Enter the Computer Name to Check:")

Set WshShellReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & ComputerName & "\root\default:StdRegProv")

strKeyPath = "Software\Microsoft\Windows\CurrentVersion\RunOnceEx\001"

strValueName = "StartBuildUpdate"

WshShellReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

If DwValue "" Then
 MSGBOX "The Build Update Registry Hook has been applied to this machine.", 0, "REGISTRY HOOK APPLIED"
Else
 MSGBOX "The Startup Registry Hook has not been applied to this machine.", 0, "REGISTRY HOOK NOT APPLIED"
End If