电脑爱好者,提供IT资讯信息及各类编程知识文章介绍,欢迎大家来本站学习电脑知识。 最近更新 | 联系我们 RSS订阅本站最新文章
电脑爱好者
站内搜索: 
当前位置:首页>> Vbscript>>vbs获取内网和外网ip一例(vbs脚本):

vbs获取内网和外网ip一例(vbs脚本)

来源:网络 | 2014-5-2 | (有1611人读过)

on error resume next

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

For Each objItem in colItems

    For Each objAddress in objItem.IPAddress

        If objAddress <> "" then GetIP = objAddress

    Next

Next

set ie=CreateObject("internetexplorer.application")

ie.navigate("http://www.ip138.com/ip2city.asp")

ie.Visible=False

While ie.busy Or ie.readystate <> 4

WEnd

Set regEx = New RegExp

regEx.Pattern ="\d.*\d"

Set Matches = regEx.Execute(ie.document.body.innerhtml)

ie.quit

For Each Match in Matches

RetStr=Match.Value

Next

msgbox "内网IP是:"&GetIP&vblf&"外网IP是:"&RetStr

Vbscript热门文章排行
网站赞助商
购买此位置

 

关于我们 | 网站地图 | 文档一览 | 友情链接| 联系我们

Copyright © 2003-2022 电脑爱好者 版权所有 备案号:鲁ICP备09059398号