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命令,比如: