Hace tiempo un compañero del foro compartió este código:
Código:
Public Function GetMAC() As String
Dim str As String
Dim p As New Process
'StartInfo representa el conjunto de parámetros que se van a
p.StartInfo.UseShellExecute = False
p.StartInfo.RedirectStandardOutput = True
p.StartInfo.FileName = "GetMac.exe"
p.StartInfo.Arguments = "/fo list"
p.Start()
'StandardOutput Obtiene una secuencia que se utiliza
str = p.StandardOutput.ReadLine
str = p.StandardOutput.ReadLine
p.WaitForExit()
Return str.Substring(23)
End Function
Espero que te sirva.