Hallo,
nachem ich schon etwas weitergekommen bin, möchte ich mal meinen aktuellen Stand präsentieren:
Quellcode:
Windows Form:
So, Auflistung der Adapter und der dazugehörigen Infos funktioniert, wie man auf dem Bild sieht. Jetzt habe ich rechts oben noch nen paar Textboxen und nen Button eingefügt und möchte dann halt, dasss man in die entsprechenden Felder IP, Subnetz und DNS einträgt, auf Netzwerkeinstellungen ändern klickt und dann das halt geändert wird. Habe mich im I-Netz schon den ganzen Tag dumm und dusselig gesucht, aber nichts brauchbares finden können. Hoffe hier kann mir jemand helfen ^^.
Liebe Grüße
nachem ich schon etwas weitergekommen bin, möchte ich mal meinen aktuellen Stand präsentieren:
Quellcode:
VB.NET-Quellcode
- 'Bibliotheken importieren
- Imports System.Net.NetworkInformation
- Imports System.Net.NetworkInformation.NetworkInterface
- Imports System.Net.Dns
- Imports System.Management
- Public Class Form1
- Dim CurrentNet As String 'Das aktuell ausgewählte Netzwerk
- Dim adapter As NetworkInterface 'Eine Netzwerkadapter Instanz
- Dim adapters As NetworkInterface() 'Array mit allen Netzwerkadaptern
- Public Sub DisplayDnsConfiguration()
- adapters = NetworkInterface.GetAllNetworkInterfaces()
- 'Alle aktivierten Netzwerkadapter auflisten
- For Each Me.adapter In adapters
- Dim properties As IPInterfaceProperties = adapter.GetIPProperties()
- ComboBox1.Items.Add(adapter.Description)
- Next adapter
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- 'Alle Adapter in der Liste überprüfen
- DisplayDnsConfiguration()
- End Sub
- Public Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
- txtNetInfo.Text = ""
- For Each Me.adapter In adapters
- Dim properties As IPInterfaceProperties = adapter.GetIPProperties()
- If adapter.Description = ComboBox1.Text Then 'Wenn Adapterbeschreibung in ComboBox1 steht und ausgewählt ist, dann folgende Infos anzeigen.
- Try
- txtNetInfo.Text += adapter.Description & vbNewLine & vbNewLine & _
- "----->Adapterinformationen<----- " & vbNewLine & _
- "Typ....................................................... " & adapter.Name & vbNewLine & _
- "Computername.............................................. " & IPGlobalProperties.GetIPGlobalProperties.HostName.ToString & vbNewLine & _
- "IP Adresse................................................ " & System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName).AddressList.GetValue(1).ToString & vbNewLine & _
- "Gateway Adresse........................................... " & properties.GatewayAddresses(0).Address.ToString & vbNewLine & _
- "DNS Server................................................ " & properties.DnsAddresses(0).ToString & vbNewLine & _
- "Dynamisches DHCP aktiviert?............................... " & adapter.GetIPProperties.GetIPv4Properties.IsDhcpEnabled.ToString & vbNewLine & _
- "Statisches DNS aktiviert?................................. " & properties.IsDnsEnabled & vbNewLine & _
- "Dynamisches DNS aktiviert?................................ " & properties.IsDynamicDnsEnabled & vbNewLine & _
- "MAC Adresse............................................... " & adapter.GetPhysicalAddress.ToString
- CurrentNet = adapter.Description
- Catch ex As Exception
- Finally
- End Try
- End If
- Next
- If txtNetInfo.Text = "" Then 'Wenn keine Adapterinfos ausgelesen werden können, dann Fehler ausgeben
- txtNetInfo.Text = "Fehler Beim Auslesen der Netzwerkinformationen." & vbNewLine & vbNewLine & "Bitte Wählen Sie einen anderen Netzwerkadapter."
- End If
- End Sub
- Private Sub Netzwerkeinstellungen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Netzwerkeinstellungen.Click
- End Sub
- End Class
Windows Form:
So, Auflistung der Adapter und der dazugehörigen Infos funktioniert, wie man auf dem Bild sieht. Jetzt habe ich rechts oben noch nen paar Textboxen und nen Button eingefügt und möchte dann halt, dasss man in die entsprechenden Felder IP, Subnetz und DNS einträgt, auf Netzwerkeinstellungen ändern klickt und dann das halt geändert wird. Habe mich im I-Netz schon den ganzen Tag dumm und dusselig gesucht, aber nichts brauchbares finden können. Hoffe hier kann mir jemand helfen ^^.
Liebe Grüße