Moin Moin,
ich bin leider wieder auf ein Problem gestoßen, denn ich muss jetzt den DNS Domain Suffix setzten, sowie die Option "Adressen dieser Verbindung in DNS registrieren." auf "ungesetzt" setzen, des Weiteren muss die Option "Diese DNS-Suffixe anhängen" aktiviert sein (Dies muss vor dem setzen des Suffix geschehen). Ihr findet das Menü unter "Netzwerk- und Freigabecenter" -> "Adaptereinstellungen ändern" -> "Eigenschaften" eures LAN/WLAN Adapters -> "Internetprotokoll Version 2 (TCP/IPv4)" -> "Eigenschaften" -> "Erweitert" -> Reiter "DNS" (Ich gehe zwar davon aus, dass alle hier wissen wo das zu finden ist, aber ich habe es zur Sicherheit einfach nochmal hingeschrieben).
Und Wenn es geht wäre ich euch noch sehr Dankbar, wenn ihr mir sagen könntet, wie man den Namen eines Netzwerk-Adapters ändert.
VB.NET Code
LG
squax
ich bin leider wieder auf ein Problem gestoßen, denn ich muss jetzt den DNS Domain Suffix setzten, sowie die Option "Adressen dieser Verbindung in DNS registrieren." auf "ungesetzt" setzen, des Weiteren muss die Option "Diese DNS-Suffixe anhängen" aktiviert sein (Dies muss vor dem setzen des Suffix geschehen). Ihr findet das Menü unter "Netzwerk- und Freigabecenter" -> "Adaptereinstellungen ändern" -> "Eigenschaften" eures LAN/WLAN Adapters -> "Internetprotokoll Version 2 (TCP/IPv4)" -> "Eigenschaften" -> "Erweitert" -> Reiter "DNS" (Ich gehe zwar davon aus, dass alle hier wissen wo das zu finden ist, aber ich habe es zur Sicherheit einfach nochmal hingeschrieben).
Und Wenn es geht wäre ich euch noch sehr Dankbar, wenn ihr mir sagen könntet, wie man den Namen eines Netzwerk-Adapters ändert.
VB.NET-Quellcode
- Imports System.Management
- Public Class frm_SetDns
- 'Liste für die Anzeige in der ComboBox
- Private nL As New List(Of NIC)
- Private Sub frm_IpsetDns_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- nL.Clear()
- Try
- Dim searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT Description, Index FROM Win32_NetworkAdapterConfiguration")
- For Each queryObj As ManagementObject In searcher.Get()
- Dim n As New NIC
- n.Description = queryObj("Description")
- n.Index = queryObj("Index")
- nL.Add(n)
- Next
- 'Button1.Enabled = True
- Catch err As ManagementException
- MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
- End Try
- 'Liste an comboBox binden und Display bzw Valuemember setzen
- cmbbx_Adapter.DataSource = nL
- cmbbx_Adapter.DisplayMember = "Description"
- cmbbx_Adapter.ValueMember = "Index"
- End Sub
- Private Sub btn_SetDns_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_SetDns.Click
- If cmbbx_Adapter.SelectedValue IsNot Nothing Then
- Try
- Dim classInstance As New ManagementObject( _
- "root\CIMV2", _
- "Win32_NetworkAdapterConfiguration.Index='" & Me.cmbbx_Adapter.SelectedValue & "'", _
- Nothing)
- 'Parameter auslesen und setzen
- Dim inParams As ManagementBaseObject = classInstance.GetMethodParameters("SetDNSServerSearchOrder")
- inParams("DNSServerSearchOrder") = New Object() {"10.177.146.129", "10.177.146.130"} 'Dies ist der Primäre und Sekundäre DNS Server!
- ' Es geht um Dieses Code-Segment -->
- Dim inDNSDomain As ManagementBaseObject = classInstance.GetMethodParameters("SetDNSDomainSuffixSearchOrder")
- inDNSDomain("DNSDomainSuffixSearchOrder") = New Object() {"han.xx.xxx"}
- ' <--
- 'Methode ausführen
- Dim outParams As ManagementBaseObject = classInstance.InvokeMethod("SetDNSServerSearchOrder", inParams, Nothing)
- ' Und um Dieses -->
- Dim outDNSDomain As ManagementBaseObject = classInstance.InvokeMethod("SetDNSDomainSuffixSearchOrder", inDNSDomain, Nothing)
- ' <--
- MsgBox("Die DNS-Server wurden erfolgreich gesetzt", MsgBoxStyle.Information)
- Me.Close()
- frm_MainFrame.Show()
- Catch err As ManagementException
- MessageBox.Show("An error occurred while trying to execute the WMI method: " & err.Message)
- End Try
- Else
- MsgBox("Fehler: Sie haben keinen Netzwerkadapter ausgewählt!", MsgBoxStyle.Critical)
- End If
- End Sub
- 'Hilfsklasse für die ComboBox
- Public Class NIC
- Private _desc As String
- Private _in As Int32
- Public Property Description() As String
- Get
- Return _desc
- End Get
- Set(ByVal value As String)
- _desc = value
- End Set
- End Property
- Public Property Index() As Int32
- Get
- Return _in
- End Get
- Set(ByVal value As Int32)
- _in = value
- End Set
- End Property
- End Class
- End Class
LG
squax