' Kod definiuje domylne przekierowania
' ------ KONFIGURACJA SKRYPTU ------
strServer  = "<NazwaSerwera>"  ' np. dns1.rallencorp.com
arrForwarders = Array("<IP1>","<IP2>")
' ------ KONIEC KONFIGURACJI ---------

set objDNS = GetObject("winMgmts:\\" & strServer & "\root\MicrosoftDNS")
set objDNSServer = objDNS.Get("MicrosoftDNS_Server.Name="".""")
objDNSServer.Forwarders = arrForwarders
objDNSServer.Put_
Wscript.Echo "Z powodzeniem zdefiniowano domylne przekierowania."
