用VBS方法获得双网卡或多网卡的IP，MAC，计算机名方法

'=======================================================

'

'-----------    2014.11.10 by zhang.xh QQ:857372828

'

'=========================================================

Dim str0,str1,str2,str3

strComputer = "." 

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

str1 = GetIP()

str2 = GetMAC()

str3 = GetHostname()

msgbox "IP: "&str1& vbcrlf &"MAC: "&str2,,"计算机名："&str3

Function GetIP()

GetIP = ""

dim IPConfig,IPConfigSet

 

 

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)  

'msgbox "IP地址："&IPConfig.IPAddress(i),,"IP地址发给网管RTX："  

f = f &IPConfig.IPAddress(i) &vbCrlf &"IP: "

Next  

    End If  

'exit for

Next 

GetIP = f

End Function

Function GetMAC()

GetMAC = ""

dim mo,mc

Set mc = GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")

For Each mo In mc

If mo.IPEnabled = True Then 

            'TracePrint "本机网卡MAC地址是: " & mo.MacAddress

 'msgbox "MAC:"& mo.MacAddress,,"您的MAC地址是："

m = m &mo.MacAddress & vbcrlf &"MAC: "

'exit for

end if

Next

GetMac = m

End Function

Function GetHostname()

GetHostname = ""

dim colComputer,colComputers

Set colComputers = objWMIService.ExecQuery _

("Select * from Win32_ComputerSystem")

For Each objComputer in colComputers

strComputerName = objComputer.Name

'msgbox "计算机名："&strComputerName,,"你的电脑名："

GetHostname = strComputerName

Exit For

Next

end Function

'==========================