  Kod kompresuje katalog i jego zawarto  z wykorzystaniem kompresji systemu plikw NTFS
' ------ KONFIGURACJA SKRYPTU ------
strComputer = "."
strFolder   = "<ciekaKatalogu>" ' np. d:\scripts
' ------ KONIEC KONFIGURACJI ---------
set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set objFolder = objWMI.Get("Win32_Directory='" & strFolder & "'")
intRC = objFolder.Compress  ' Aby dokona dekompresji, trzeba zamieni na objFolder.Uncompress
if intRC <> 0 then
   WScript.Echo "Podczas kompresji katalogu wystpi bd: " & intRC
else
   WScript.Echo "Kompresja pliku zakoczya si powodzeniem."
end if
