vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: HTML/Internet/Netzwerk · Netzwerk   |   VB-Versionen: VB.NET26.04.07
Ermitteln aller Netzwerkkarten und ihrer MAC-Adressen (.NET)

Hier wird gezeigt, wie man alle installierten Netzwerkkarten und die dazugehörigen MAC-Adressen ermitteln kann.

Autor:   Dieter OtterBewertung:     [ Jetzt bewerten ]Views:  26.795 
www.tools4vb.deSystem:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 Beispielprojekt auf CD 

Mit nachfolgendem Tipp möchten wir zeigen, wie man unter VB.NET 2005 alle installierten Netzwerkkarten und die dazugehörigen MAC-Adressen ermitteln kann. Ferner lässt sich auch noch der Status der Netzwerkverbindung auslesen.

Erstellen Sie ein neues Projekt und platzieren auf die Form ein ListBox-Control, sowie ein Button-Control.
Fügen Sie nachfolgenden Code in den Codeteil der Form ein:

Imports System.Net.NetworkInformation
Public Class Form1
 
  Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
 
    ' NetzwerkInterface-Objekt
    Dim oInterface As NetworkInterface
 
    ' ListBox-Inhalt löschen
    ListBox1.Items.Clear()
 
    ' alle verfügbaten Netzwerk-Interfaces durchlaufen
    For Each oInterface In NetworkInterface.GetAllNetworkInterfaces()
      With oInterface
        ' nur wenn es sich um kein LoopBack/Tunnel-Interface handelt...
        If .NetworkInterfaceType <> NetworkInterfaceType.Loopback AndAlso _
          .NetworkInterfaceType <> NetworkInterfaceType.Tunnel Then
 
          ' Name der Netzwerkverbindung, Status und MAC-Adresse
          ' in die ListBox schreiben
          ListBox1.Items.Add(.Name.ToString & _
            " Status: " & .OperationalStatus.ToString & " " & _
            " [" & .GetPhysicalAddress.ToString & "]")
        End If
      End With
    Next
  End Sub
End Class