Public Function GetMACaddress() As String
 
        Dim oMClass As ManagementClass = New ManagementClass( _
          "Win32_NetworkAdapterConfiguration")
        Dim colMObj As ManagementObjectCollection = oMClass.GetInstances
        For Each objMO As ManagementObject In colMObj
            Return objMO("MacAddress").ToString
        Next
 
    End Function

MfG
Huppi

######################################################
# Dank Computer wissen wir viel genauer, was wir nicht wissen... #
######################################################