VBS 获取外网IP的实现代码
更新时间：2013年07月28日 20:08:31 作者：
这篇文章主要介绍了用vbs获取外网的ip地址，通过用vbs访问ip显示页面的返回值实现，需要的朋友可以参考下
复制代码 代码如下:
set oDOM = WScript.GetObject("http://ipseeker.cn//")
flag=0
for i=1 to 10
if oDOM.readyState = "complete" then
flag=1
exit for
end if
WScript.sleep 500
next
if flag=0 then
WScript.Echo "timeout ..."
wscript.quit
end if
s=oDOM.documentElement.innerText
Set Re = New RegExp
Re.Pattern="(\d+)\.(\d+)\.(\d+)\.(\d+)"
for each r in Re.Execute(s)
res=r
exit for
Next
WScript.Echo "IPAddress: " & res
原文：http://www.enun.net/?p=1188
相关文章
VBS教程：方法-GetAbsolutePathName 方法
VBS教程：方法-GetAbsolutePathName 方法...2006-11-11
VBS教程：函数-LBound 函数...2006-11-11
自己捣鼓了半天，终于写出了个脚本，实现flux在注册表中的启动，当然是更隐蔽的方法，别人知道了这个地方也就没戏了。2009-05-05
主要是用于flash网页木马调用方法，是flash的一个bug吧，大家以后要小心了2008-06-06
VBS教程：运算符-Is 运算符...2006-11-11
VBS教程：正则表达式简介 -非打印字符...2006-11-11
这篇文章主要介绍了vbs实现unicode和ascii编码转换,本文同时介绍了OpenTextFile和CreateTextFile的使用,需要的朋友可以参考下2014-11-11
VBS教程：属性-Path 属性...2006-11-11
VBS教程：属性-TotalSize 属性...2006-11-11
使用vbs实现文本文件编码的查询的代码，需要的朋友可以参考下。2010-06-06
最新评论