' Kod kompresuje wolumin.
' ------ KONFIGURACJA SKRYPTU ------
strComputer = "."
strDrive = "<Napd>"  ' np. D:
boolRecursive = True
' ------ KONIEC KONFIGURACJI ---------
set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set colFolder = objWMI.ExecQuery("select * from Win32_Directory " & _
                                 " where name = '" & strDrive & "\\'")
if colFolder.Count <> 1 then
   WScript.Echo "Bd: wolumin nie zosta znaleziony."
else
   for each objFolder in colFolder
      intRC = objFolder.CompressEx(strErrorFile,,boolRecursive)
      if intRC <> 0 then
         WScript.Echo "Podczas kompresowania woluminu wystpi bd: " & intRC 
         WScript.Echo "Kompresja zostaa przerwana na pliku: " & strErrorFile
      else
         WScript.Echo "Kompresja woluminu zostaa zakoczona powodzeniem."
      end if
   next 
end if
