Dim Ausgabe
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_NetworkAdapterConfiguration",,48)
For Each objItem In colItems
If NOT objItem.MACAddress = "" Then
Ausgabe = "MACAddress: " & objItem.MACAddress & vbcrlf
End If
 
Next
 
msgbox Ausgabe