取MAC地址

Sub wmiGetMac()
  Dim WmiObjSet, Obj
  Set WmiObjSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
                            InstancesOf("Win32_NetworkAdapterConfiguration")
  On Local Error Resume Next
  For Each Obj In WmiObjSet
      MsgBox Obj.macaddress
      MsgBox Obj.Description
      MsgBox Obj.DNSHostName
      MsgBox Obj.DNSDomain
      If Not IsNull(Obj.IPAddress) Then
         For i = 0 To UBound(Obj.IPAddress)
             MsgBox "IP address:" & Obj.IPAddress(i)
         Next
      End If
  Next
End Sub

 

Dim oAdapters As Object, oAdapter As Object
On Error Resume Next
Set oAdapters = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each oAdapter In oAdapters
MsgBox "MAC ADDRESS:  " & Replace(oAdapter.macaddress, ":", " ")
Exit For
Next