# Kod wykonuje polecenie sdelete

use Win32::OLE;
$Win32::OLE::Warn = 3;

# ------ KONFIGURACJA SKRYPTU ------
$strCommand = 'sdelete -p 5 c:\\logs\\tue.log';
# ------ KONIEC KONFIGURACJI ---------
$objWshShell = Win32::OLE->new('WScript.Shell');
$intRC = $objWshShell->Run($strCommand, 0, 1);
if ($intRC != 0) {
    print 'Po wykonaniu polecenia wystpi bd: ' . $intRC, "\n";
}
else {
    print "Dziaanie polecenia zostao zakoczone powodzeniem.\n";
}
