于是：regsvr32 vbscript.dll。
重新運行腳本，沒想到還是一樣。放到另外一臺計算機上卻正常。怪了，最近也沒怎么折騰這系統，百度、谷歌了一陣子，沒有答案。
下午吃飯的時候，放火墻出了點狀況，打開防火墻日志查看了下，無意中瞄到了“D:/DATA/VBS/GetWanIP.vbs”的字眼，看來有眉目了。
原來是防火墻阻止了腳本的網絡訪問！添加一條規則。腳本正常運行了。
GetWanIP.vbs是代碼網絡上隨處可見的：
復制代碼代碼如下:
Set GetIP=Wscript.GetObject("http://www.ip138.com/ip2city.asp")
Do Until GetIP.readyState="complete"
Wscript.Sleep 100
Loop
Wscript.Echo GetIP.documentElement.outerText
Set GetIP=nothing
