vbs 判断 网页打不开,该怎么解决

vbs 判断 网页打不开


Set Wshell=WScript.CreateObject("WScript.Shell")
Set ie= WScript.CreateObject("InternetExplorer.Application")
ie.visible=true
ie.navigate "http://www.cccbaidu.com"
While ie.Busy
wscript.sleep 200
Wend
if ie.ReadyState <> 4 then
wshell.popup "打不开",3
ie.quit
wscript.quit
else
wshell.popup "打得开",3
ie.quit
wscript.quit
end if

哪不对呢?

------解决方案--------------------
你还真够执着的,开3个贴问。