Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Internet Explorer\New Windows"
strValueName = "PopupMgr"
oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
'MsgBox "读出注册表的值: " & dwValue
IF dwValue="YES" then
MsgBox "XXX"
ELSEIF dwValue="NO" then
MsgBox "其他"
End IF
End Sub
</script>