Moin Moin,
erst wollte ich mal Hallo sagen, da dies mein 1. Post ist!
Also ich hoffe auf ein gutes und nettes miteinander!
So nun zu meinem kleinen Anliegen:
Ich schreibe gerade ein Programm, welches mir einige Arbeit abnehmen soll. Es ist quasi ein Windows-Funktionssammlung mit Zusatzfunktionen.
Jetzt zu meinem Problem. Ich bin gerade dabei, dass ich dem Programm beibringe, dass es mir die DNS-Server einträgt bzw. vorhandene ersetzt. Nun liegt das Problem aber da, dass mir immer nur der Primäre DNS-Server eingetragen wird und der Sekundäre einfach leer bleibt. Einen Fehler bekommen ich des Weiteren auch nicht, der Prozess wird mit dem Status "0" abgeschlossen.
Hier der MSDN-Link <--
LG
squax
P.S. Hier der Programmcode
erst wollte ich mal Hallo sagen, da dies mein 1. Post ist!
Also ich hoffe auf ein gutes und nettes miteinander!
So nun zu meinem kleinen Anliegen:
Ich schreibe gerade ein Programm, welches mir einige Arbeit abnehmen soll. Es ist quasi ein Windows-Funktionssammlung mit Zusatzfunktionen.
Jetzt zu meinem Problem. Ich bin gerade dabei, dass ich dem Programm beibringe, dass es mir die DNS-Server einträgt bzw. vorhandene ersetzt. Nun liegt das Problem aber da, dass mir immer nur der Primäre DNS-Server eingetragen wird und der Sekundäre einfach leer bleibt. Einen Fehler bekommen ich des Weiteren auch nicht, der Prozess wird mit dem Status "0" abgeschlossen.
Hier der MSDN-Link <--
LG
squax
P.S. Hier der Programmcode
VB.NET-Quellcode
- Private Sub btn_SetDns_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_SetDns.Click
- Dim oAdapters
- Dim errDNS
- If (cmbbx_Adapter Is Nothing) Then
- MsgBox("Fehler: Sie haben keinen Netzwerkadapter ausgewählt!", MsgBoxStyle.Critical)
- Else
- ' alle verfügbaren Netzwerk-Adapter mit IP-Adresse
- oAdapters = GetObject("winmgmts:").execquery("SELECT * FROM Win32_NetworkAdapterConfiguration")
- ' Objekte durchlaufen
- For Each oAdapter In oAdapters
- If oAdapter.Description = Me.cmbbx_Adapter.Text Then
- ' Setzen der DNS Server für den aktuellen Netzwerkadapter
- errDNS = oAdapter.SetDNSServerSearchOrder({"10.177.146.129"}, {"10.177.146.130"})
- 'errDNS = oAdapter.SetDNSServerSearchOrder({"8.8.4.4"}, {"8.8.8.8"})
- If Not (errDNS = 0) Then
- MsgBox("Fehler: Die DNS-Server wurden nicht gesetzt!", MsgBoxStyle.Critical)
- Else
- MsgBox("Die DNS-Server wurde erfogreich eingetragen.", MsgBoxStyle.Information)
- Me.Close()
- frm_MainFrame.Show()
- End If
- End If
- Next
- End If
- End Sub