# Kod kompresuje plik z wykorzystaniem kompresji systemu plikw NTFS

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

# ------ KONFIGURACJA SKRYPTU ------
$strComputer = '.';
$strFile = '<ciekaPliku>'; # np. d:\scripts\test.vbs
# ------ KONIEC KONFIGURACJI ---------
$objWMI = Win32::OLE->GetObject('winmgmts:\\\\' . $strComputer . '\\root\\cimv2');
$objFile = $objWMI->Get('Cim_Datafile=\'' . $strFile . '\'');
print $objFile->Name, "\n";
$intRC = $objFile->Compress; # Aby dokona dekompresji, trzeba zamieni na objFile.Uncompress
if ($intRC != 0) {
    print 'Podczas kompresji pliku wystpi bd: ' . $intRC, "\n";
}
else {
    print "Kompresja pliku zakoczya si powodzeniem.\n";
}
