于是：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
