vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: HTML/Internet/Netzwerk · Netzwerk   |   VB-Versionen: VB4, VB5, VB622.06.04
DNS-Suchreihenfolge konfigurieren (WMI)

Hier ein bisschen WMI, um die DNS-Konfig vorzunehmen.

Autor:   Gerhard KuklauBewertung:     [ Jetzt bewerten ]Views:  15.205 
ohne HomepageSystem:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 Beispielprojekt auf CD 

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.