标题: [求助]vbs脚本不能运行的问题 [打印本页]

---

作者: xjb110     时间: 2007-5-11 09:44    标题: [求助]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>

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

---

作者: ttyp     时间: 2007-5-11 10:16
能上网么

---

作者: xjb110     时间: 2007-5-11 16:07
能上网

---

作者: ttyp     时间: 2007-5-11 16:10
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的断点看看