确定计算机的 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

本文转自 苏繁 51CTO博客，原文链接：http://blog.51cto.com/goxia/221134，如需转载请自行联系原作者