' Kod ponownie uruchamia usug Serwer DNS na okrelonym komputerze
' ------ KONFIGURACJA SKRYPTU ------
strServer  = "<NazwaSerwera>"     ' np. dns1.rallencorp.com
' ------ KONIEC KONFIGURACJI ---------
on error resume next

set objDNS = GetObject("winMgmts:\\" & strServer & "\root\MicrosoftDNS")
set objDNSServer = objDNS.Get("MicrosoftDNS_Server.Name="".""")

objDNSServer.StopService
if Err Then
  WScript.Echo "Metoda StopService zwrcia bd: " & Err.Description
  Wscript.Quit
end if

objDNSServer.StartService
if Err Then
  WScript.Echo "Metoda StartService zwrcia bd: " & Err.Description
  Wscript.Quit
end if

WScript.Echo "Ponowne uruchomienie usugi zakoczyo si powodzeniem."
