Mac Address Studio 2005

[seba123neo]

Hola,pero estas trabajando con aplicacion de windows o con la consola???,proba este ejemplo,agrega la referencia a System.Managament

Código:

Imports System.Management

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim mc As System.Management.ManagementClass
        Dim mo As ManagementObject
        mc = New ManagementClass("Win32_NetworkAdapterConfiguration")
        Dim moc As ManagementObjectCollection = mc.GetInstances()
        For Each mo In moc
            If mo.Item("IPEnabled") = True Then
                MsgBox("Tu Direccion MAC es: " & mo.Item("MacAddress").ToString())
            End If
        Next
    End Sub
End Class

saludos.