# Kod uruchamia ponownie serwer.
use Win32::OLE qw(in);
$Win32::OLE::Warn = 3;

# ------ KONFIGURACJA SKRYPTU ------
$strComputer = '<NazwaSerwera>'; # np. rallen-srv01
# ------ KONIEC KONFIGURACJI ---------
$objWMI = Win32::OLE->GetObject('winmgmts:\\\\' . $strComputer . '\\root\\cimv2');
$colOS = $objWMI->InstancesOf('Win32_OperatingSystem');
foreach my $objOS (in $colOS) {
    $intRC = $ObjOS->Reboot();
    if ($intRC != 0) {
        print 'Przy prbie ponownego uruchomienia serwera wystpi bd: ' . $intRC, "\n";
    }
    else {
        print "Ponowne uruchamianie serwera...\n";
    }
}
