确定計算機的 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，如需轉載請自行聯系原作者