VBS 获取本机IP地址、IE版本

'获取本机
IP地址

Function GetLocalIP(ComputerName)

Dim objWMIService,colItems,objItem,objAddress

Set objWMIService = GetObject("winmgmts://" & ComputerName & "/root/cimv2")

Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

For Each objItem in colItems

    For Each objAddress in objItem.IPAddress

    If objAddress <> "" then

    GetIPMAC = objAddress

    End If

    Exit For

    Next

Exit For

Next

a=Msgbox(GetIPMAC)

End Function

GetLocalIP(".")

'获取本机 IE版本 （源：null错误待验证，即将更新……）

Set objwmiserviceIE=GetObject("winmgmts:\" & strComputer & "\root\cimv2\Applications\MicrosoftIE")

Set colIESettings=objwmiserviceIE.execquery("select * from MicrosoftIE_Summary")

For Each strIESetting In colIESettings

    MsgBox "IE version: "&strIESetting.version

    MsgBox strIESetting.productID

Next