用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

‘==========================

本文出自 “技术成就自我” 博客,请务必保留此出处http://gotusson.blog.51cto.com/692866/1590024

郑重声明:本站内容如果来自互联网及其他传播媒体,其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享,并不代表本站赞同其观点和对其真实性负责,也不构成任何其他建议。