Set objwmiservice = GetObject("winmgmts:\\.\root\cimv2")
Set devices = objwmiservice.ExecQuery _
("SELECT * FROM Win32_NetworkAdapter WHERE MACAddress Is Not NULL AND Manufacturer <> 'Microsoft' and NetConnectionID like '以太网%' ")
For Each device In devices
MsgBox device.MACAddress
Next