手机
当前位置:查字典教程网 >脚本专栏 >vbs >VBS 获取外网IP的实现代码
VBS 获取外网IP的实现代码
摘要:复制代码代码如下:setoDOM=WScript.GetObject("http://ipseeker.cn//")flag=0fori=1...

复制代码 代码如下:

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 获取外网IP的实现代码】相关文章:

用VBS脚本实现更换Windows Xp序列号的代码

用VBS设置静态IP和DNS服务器地址的代码

获取屏幕分辨率的VBS代码

vbscript 调用WebService实现代码

简单的VBS加密实现代码

vbs xmldom初次实战获取QQ签名的代码

用VBS实现PHP的md5_file函数代码

VBS的各种应用的比较实用小代码

通过vbs修改目录名称与快捷方式名称的实现代码

利用VBS发送短信的实现代码(通过飞信)

精品推荐
分类导航