' Kod kompresuje plik z wykorzystaniem kompresji systemu plikw NTFS
' ------ KONFIGURACJA SKRYPTU ------
strComputer = "."
strFile     = "<ciekaPliku>" ' np. d:\scripts\test.vbs
' ------ KONIEC KONFIGURACJI ---------
set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set objFile = objWMI.Get("Cim_Datafile='" & strFile & "'")
WScript.Echo objFile.Name
intRC = objFile.Compress ' Aby dokona dekompresji, trzeba zamieni na objFile.Uncompress
if intRC <> 0 then
   WScript.Echo "Podczas kompresji pliku wystpi bd: " & intRC
else
   WScript.Echo "Kompresja pliku zakoczya si powodzeniem."
end if
