用脚本查询本机 IP 地址
内容转载自冷血的帖子,由官方整理编排成一个系列
如果想在脚本中查询本机正在上网时的 内网IP 地址,可以使用如下脚本源码:
- VBSBegin
- Set obj = GetObject("winmgmts:\\.\root\cimv2")
- Set IPConfigSet = obj.ExecQuery ("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
- For Each IPConfig in IPConfigSet
- If Not IsNull(IPConfig.IPAddress) Then
- For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
- add = IPConfig.IPAddress(i)
- MessageBox(add)
- Next
- End If
- Next
- VBSEnd
复制代码 原帖地址:
http://bbs.vrbrothers.com/viewthread.php?tid=45894&highlight 将弹出一个窗口,显示你正在上网的内网 IP 地址。