JojoChen's MIS Blog

試寫一小段VBScript，取得本機電腦中的有線網路卡和無線網路卡中的名稱,IP與MAC，其VBScript如下：

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration")
For Each objItem in colItems
   If objItem.IPEnabled=True Then
    If not isNull(objItem.IPAddress) Then     
         Wscript.Echo objItem.IPAddress(0)
         Wscript.Echo objItem.Macaddress
         Wscript.Echo Mid(objItem.Caption,11)
         Wscript.Echo objItem.IPConnectionMetric       
     End If
    End If
Next