msgbox "ip地址是:"&GetIP(".")

msgbox "mac地址是:"&GetMAC(".")

Function GetIP(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

  GetIP= objAddress

  Exit For

 End If 

 Next

 Exit For

Next

End Function

Function GetMAC(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

  GetMAC= objItem.MACAddress

  Exit For

 End If 

 Next

 Exit For

Next

End Function