用EXCEL取得電腦的MAC ADDRESS

Dim strcomputer$, objwmiservice As Object, coldevices As Object, coldevice
Dim MacNum&
strcomputer = "."
Set objwmiservice = GetObject("winmgmts:\\" & strcomputer & "\root\cimv2")
Set coldevices = objwmiservice.ExecQuery _
("SELECT MACAddress FROM Win32_NetworkAdapter WHERE ((MACAddress Is Not NULL) AND (Manufacturer <> 'Microsoft'))")

For Each coldevice In coldevices

Sheets("SHEET1").Range("A1").Value = coldevice.macaddress
Next