' Kod zamienia stref na zintegrowan z usug Active Directory
' ------ KONFIGURACJA SKRYPTU ------
strZone   = "<NazwaStrefy>"    ' np. rallencorp.com
strServer = "<NazwaSerwera>"   ' np. dc1.rallencorp.com
' ------ KONIEC KONFIGURACJI ---------
set objDNS = GetObject("winMgmts:\\" & strServer & "\root\MicrosoftDNS")
set objDNSServer = objDNS.Get("MicrosoftDNS_Server.Name="".""")
set objDNSZone = objDNS.Get("MicrosoftDNS_Zone.ContainerName=""" & _
                          strZone & """,DnsServerName=""" & _
                          objDNSServer.Name & """,Name=""" & strZone & """")
strNull = objDNSZone.ChangeZoneType(0, True)
objDNSZone.Put_
WScript.Echo "Dokonano konwersji strefy " & strZone & " na zintegrowan z usug Active Directory."
