Visual Basic - optener el numero de mac en red

ipconfig /all > Resultado.txt

Public Function leerIDcomputadora() As String

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

leerIDcomputadora = objitem.MACAddress

Next

End Function

Private Sub Form_Load()

etiqueta.Caption = leerIDcomputadora

End Sub