Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim s As String = "Win32_NetworkAdapterConfiguration"
        Dim WMISearcher As System.Management.ManagementObjectSearcher = _
                        New ManagementObjectSearcher("SELECT * FROM " + s)
        For Each fan As ManagementObject In WMISearcher.Get
            Debug.WriteLine(fan.Properties("Caption").Value & "=" & _
              fan.Properties("MACAddress").Value)
        Next
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist