‘=======================================================
‘
‘----------- 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
‘==========================
