' Kod tworzy stref wyszukiwania do przodu lub wstecznego, zintegrowan z usug Active Directory
' ------ KONFIGURACJA SKRYPTU ------
strServer  = "<NazwaSerwera>"    ' np. dns01.rallencorp.com
strNewZone = "<NazwaStrefy>"     ' np. othercorp.com lub 8.10.192.in-addr.arpa
' ------ KONIEC KONFIGURACJI ---------
set objDNS = GetObject("winMgmts:\\" & strServer & "\root\MicrosoftDNS")
set objDNSZone = objDNS.Get("MicrosoftDNS_Zone")
strNull = objDNSZone.CreateZone(strNewZone, 0 , True)
WScript.Echo "Utworzono stref " & strNewZone
