Private Function MACAddress() As String
Dim macaddr As String
macaddr = ""
Set objs = GetObject("winmgmts:").ExecQuery( _
"SELECT MACAddress " & _
"FROM Win32_NetworkAdapter " & _
"WHERE " & _
"((MACAddress Is Not NULL) " & _
"AND (Manufacturer <> " & _
"'Microsoft'))")
For Each obj In objs
macaddr = macaddr & ";" & obj.MACAddress
Next obj
MACAddress = macaddr
End Function
Dim macaddr As String
macaddr = ""
Set objs = GetObject("winmgmts:").ExecQuery( _
"SELECT MACAddress " & _
"FROM Win32_NetworkAdapter " & _
"WHERE " & _
"((MACAddress Is Not NULL) " & _
"AND (Manufacturer <> " & _
"'Microsoft'))")
For Each obj In objs
macaddr = macaddr & ";" & obj.MACAddress
Next obj
MACAddress = macaddr
End Function