DNS-Suchreihenfolge konfigurieren (WMI) Hier ein bisschen WMI, um die DNS-Konfig vorzunehmen.
Autor:   Gerhard Kuklau	Bewertung:     [ Jetzt bewerten ]	Views:  15.822
ohne Homepage	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 8 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Diesmal möchten wir Ihnen zeigen, wie man mit Hilfe des WMI-Objekts die DNS-Suchreihenfolge konfiguiert.

' Konfigurieren der (Such-) Reihenfolge der DNS-Server
Public Function fConfig_DNS_SearchOrder( _
  PrimaryDNS As String, _
  SecondaryDNS As String, _
  Optional ComputerName As String = ".") As Boolean
 
  Dim oWMI As Object
  Dim oNIC As Variant
  Dim colNIC As Variant
  Dim DNSServers As Variant
 
  ' Fehlerbehandlung aktivieren
  On Error GoTo ErrHandler
 
  ' WMI-Objekt erstellen
  Set oWMI = GetObject("winmgmts:\\" & ComputerName & "\root\cimv2")
 
  ' WMI-Abfrage erstellen
  Set colNIC = oWMI.ExecQuery _
    ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
 
  ' DNS-Suchreihenfolge festlegen
  For Each oNIC In colNIC
    DNSServers = Array(PrimaryDNS, SecondaryDNS)
    oNIC.SetDNSServerSearchOrder (DNSServers)
  Next   
  fConfig_DNS_SearchOrder = True
  Exit Function
 
ErrHandler:
  fConfig_DNS_SearchOrder = False
End Function

Beispiel für den Aufruf:

Dim bResult As Boolean
Dim sPrimary As String
Dim sSecondary As String
 
' bevorzugter DNS-Server
sPrimary = "192.168.120.252"
 
' alternativer DNS-Server
sSecondary = "192.168.120.253"
 
' DNS-Suchreihenfolge festlegen
bResult = fConfig_DNS_SearchOrder(sPrimary, sSecondary)

Hinweis:
Wenn man die entsprechenden Rechte hat, dann braucht man für Computername anstelle des "." nur den gewünschten Rechnernamen eintragen und schon kann man die Konfiguration remote aus der Ferne (also von einem anderen Rechner aus) vornehmen.