用VBS方法獲得雙網卡或多網卡的IP，MAC，電腦名稱方法

標籤：電腦名稱   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

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

650) this.width=650;" src="http://s3.51cto.com/wyfs02/M02/56/CA/wKioL1SOUCvBdCWXAAB2gYTea7M914.jpg" title="20141215110235.jpg" alt="wKioL1SOUCvBdCWXAAB2gYTea7M914.jpg" />

本文出自 “技術成就自我” 部落格，請務必保留此出處http://gotusson.blog.51cto.com/692866/1590024

用VBS方法獲得雙網卡或多網卡的IP，MAC，電腦名稱方法