# Kod modyfikuje aktualnie ustawione opcje zwizane z awariami i odzyskiwaniem.
use Win32::OLE 'in';
$Win32::OLE::Warn = 3;
# ------ KONFIGURACJA SKRYPTU ------
$strComputer = '.'; # np. rallen-srv01
# ------ KONIEC KONFIGURACJI ---------
$objWMI = Win32::OLE->GetObject('winmgmts:\\\\' . $strComputer . '\\root\\cimv2');
$colRecoveryConfig = $objWMI->InstancesOf('Win32_OSRecoveryConfiguration');
foreach my $objConfig (in $colRecoveryConfig) {
        print $objConfig->Name, "\n";

        # Naley usun znak komentarza dla opcji, ktre maj zosta zmodyfikowane:
        # objConfig.AutoReboot = True
        # objConfig.DebugFilePath = "d:\dumps\memory.dmp"
        # objConfig.DebugInfoType = 1  ' Dostpna tylko w systemie Windows Server 2003
        # objConfig.KernelDumpOnly = False
        # objConfig.MiniDumpDirectory = "d:\minidumps" ' Dostpna tylko w systemie Windows Server 2003
        # objConfig.OverwriteExistingDebugFile = True
        # objConfig.SendAdminAlert = True
        # objConfig.WriteDebugInfo = True
        # objConfig.WriteToSystemLog = True
        
        $objConfig->Put_;
        print "Modyfikacja ustawie zakoczona powodzeniem.\n";
}
print "Modyfikacja ustawie zakoczona powodzeniem.\n"