Da die Frage hier vor kurzen Aufgetaucht ist hab ich mal ein kleines Programm dazu geschrieben.
Das kleine Tool zeigt die Informationen zu allen Netzwerkadaptern an.
Bei meinem Beispiel hab ich einen Button verwendet (cmdGetStatus) und ein TreeView (tvNetw).
Hier der Code:
Zu erst die Imports
Dann der Code für den Button
Das kleine Tool zeigt die Informationen zu allen Netzwerkadaptern an.
Bei meinem Beispiel hab ich einen Button verwendet (cmdGetStatus) und ein TreeView (tvNetw).
Hier der Code:
Zu erst die Imports
Dann der Code für den Button
VB.NET-Quellcode
- Private Sub cmdGetStatus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGetStatus.Click
- If My.Computer.Network.IsAvailable Then
- Dim MyInterface As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces
- For Each adapter As NetworkInterface In MyInterface
- Dim MyNode As New TreeNode
- Dim geschw As Double
- Dim MyIP As String = "" 'muss so initialisiert werden da sonst bei nicht vorhandener IP die Ip des letzten Adapters übernommen wird
- geschw = adapter.Speed / 1000000 'Für die Darstellung in MB/s
- For Each IPInformation In adapter.GetIPProperties.UnicastAddresses
- MyIP = IPInformation.Address.ToString
- Next
- MyNode = tvNetw.Nodes.Add(adapter.Name)
- MyNode.Nodes.Add("Typ: " + adapter.NetworkInterfaceType.ToString)
- MyNode.Nodes.Add("Geschwindigkeit: " + geschw.ToString + " MB/s")
- MyNode.Nodes.Add("Beschreibung: " + adapter.Description)
- MyNode.Nodes.Add("Status: " + adapter.OperationalStatus.ToString)
- MyNode.Nodes.Add("MAC: " + adapter.GetPhysicalAddress().ToString)
- MyNode.Nodes.Add("IP: " + MyIP)
- Next
- End If
- End Sub
