' Kod uruchamia ponownie serwer.
' ------ KONFIGURACJA SKRYPTU ------
strComputer = "<NazwaSerwera>"   ' np. rallen-srv01
' ------ KONIEC KONFIGURACJI ---------
set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set colOS = objWMI.InstancesOf("Win32_OperatingSystem")
for each objOS in colOS
   intRC = ObjOS.Reboot()
   if intRC <> 0 then
      WScript.Echo "Przy prbie ponownego uruchomienia serwera wystpi bd: " & intRC
   else
      WScript.Echo "Ponowne uruchamianie serwera..."
   end if
next
