VBS 获取外网IP的实现代码_易贤网_足球游戏

VBS 获取外网IP的实现代码

来源：易贤网阅读：2869 次日期：2014-05-09 16:48:31

温馨提示：易贤网小编为您整理了“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

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

WScript.Echo "IPAddress: " & res

中国足彩网信息请查看IT技术专栏

中国足彩网信息请查看脚本栏目

由于各方面情况的不断调整与变化，易贤网提供的所有考试信息和咨询回复仅供参考，敬请考生以权威部门公布的正式信息和咨询为准！

最新信息

公考类

云南公务员贵州公务员四川公务员广西公务员各省公务员国家公务员选调遴选

招聘类

事业单位中国足彩网特岗教师三支一扶志愿者银行招聘国企招聘

各类考试

学历升学会计考试职业资格外语考试医学考试工程考试教师资格

足球游戏_中国足彩网￥体育资讯$