用vbs得到计算机的 IP 地址


描述
返回安装在计算机中的每个支持 IP 的网络适配器的 IP 地址。
脚本代码
复制代码 代码如下:

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.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)
WScript.Echo IPConfig.IPAddress(i)
Next
End If
Next


« 
» 
快速导航

Copyright © 2016 phpStudy | 豫ICP备2021030365号-3