vbs脚本不能运行的问题 - 中国DOS联盟论坛

我写了一段vbs脚本，在自己的电脑上测试通过，但到了有些电脑上就无法运行，比如以下这段获取本机ip 的代码：

set oDOM = WScript.GetObject("http://www.ip138.com/")

do until oDOM.readyState = "complete"
WScript.sleep 200
Loop
s=oDOM.documentElement.innerText
set re = New RegExp
re.Pattern="(\d+)\.(\d+)\.(\d+)\.(\d+)"
For Each m in re.Execute(s)
WScript.Echo m
Next
在有些机器上就没有任何反应，申明的一点是这些机器已经关闭了自带的防火墙，也没有运行其他防火墙，这些机器有个共同的特征就是无法使用ping命令，比如：

C:\Documents and Settings\Administrator>ping www.baidu.com
ping www.baidu.com

C:\Documents and Settings\Administrator>

请路过的大虾看看是什么问题，给个解决办法，我先谢谢了

第1楼　xjb110	发表于 2007-05-11 09:44
新手上路　发帖 2　积分 6
[求助]vbs脚本不能运行的问题我写了一段vbs脚本，在自己的电脑上测试通过，但到了有些电脑上就无法运行，比如以下这段获取本机ip 的代码： set oDOM = WScript.GetObject("http://www.ip138.com/") do until oDOM.readyState = "complete" WScript.sleep 200 Loop s=oDOM.documentElement.innerText set re = New RegExp re.Pattern="(\d+)\.(\d+)\.(\d+)\.(\d+)" For Each m in re.Execute(s) WScript.Echo m Next 在有些机器上就没有任何反应，申明的一点是这些机器已经关闭了自带的防火墙，也没有运行其他防火墙，这些机器有个共同的特征就是无法使用ping命令，比如： C:\Documents and Settings\Administrator>ping www.baidu.com ping www.baidu.com C:\Documents and Settings\Administrator> 请路过的大虾看看是什么问题，给个解决办法，我先谢谢了

第2楼　ttyp	发表于 2007-05-11 10:16
初级用户　发帖 84　积分 180
能上网么

第3楼　xjb110	发表于 2007-05-11 16:07
新手上路　发帖 2　积分 6
能上网

第4楼　ttyp	发表于 2007-05-11 16:10
初级用户　发帖 84　积分 180
set oDOM = WScript.GetObject("http://www.ip138.com/") do until oDOM.readyState = "complete" WScript.sleep 200 Loop msgbox "1" s=oDOM.documentElement.innerText msgbox s set re = New RegExp re.Pattern="(\d+)\.(\d+)\.(\d+)\.(\d+)" For Each m in re.Execute(s) WScript.Echo m Next 我这边正常，你多做几个MSGBOX的断点看看