中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [求助]vbs脚本不能运行的问题

xjb110
新手上路

积分 6
发帖 2
注册 2007-5-8
状态离线

『楼主』: [求助]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>

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

2007-5-11 09:44

ttyp
初级用户

积分 180
发帖 84
注册 2006-9-7
状态离线

『第 2 楼』:

能上网么

2007-5-11 10:16

xjb110
新手上路

积分 6
发帖 2
注册 2007-5-8
状态离线

『第 3 楼』:

能上网

2007-5-11 16:07

ttyp
初级用户

积分 180
发帖 84
注册 2006-9-7
状态离线

『第 4 楼』:

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的断点看看

2007-5-11 16:10

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: