Public Function GetMACAddresses() As List(Of String)
      Dim tList As New List(Of String)
      Dim nics() As NetworkInterface = NetworkInterface.GetAllNetworkInterfaces( _
        )
 
      For Each nic As NetworkInterface In nics
         If nic.NetworkInterfaceType = NetworkInterfaceType.Ethernet Then
            Dim adapter As PhysicalAddress = nic.GetPhysicalAddress
            Dim nicbyte() As Byte = adapter.GetAddressBytes
            Dim s As New System.Text.StringBuilder
            For x As Integer = 0 To nicbyte.Length - 1
               s.Append(nicbyte(x).ToString("X2"))
               If x < nicbyte.Length - 1 Then
                  s.Append("-")
               End If
            Next
            tList.Add(s.ToString)
         End If
      Next
      Return tList
   End Function

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control