en un goglaso rapido encontre esto:
Código:
Dim colNetAdapters, objWMIService As Object
Dim strComputer As String
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each objitem In colNetAdapters
MsgBox objitem.MACAddress
Next
para mas informacion al respecto revisa esto :
http://www.canalvisualbasic.net/foro...sica-mac-1289/
espero te sea util