Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
Set fso = CreateObject("Scripting.FileSystemObject")

AnalyzeDir(fso.GetFolder(WScript.Arguments(0)))

Sub AnalyzeDir(dir)

  for each file in dir.Files

	Set wmiobjFile = objWMI.Get("CIM_Datafile=""" & Replace(file.Path,"\","\\") & """")
	If wmiobjFile.Compressed or wmiobjFile.Encrypted Then
	  str = file.Path & " "
	  If wmiobjFile.Compressed Then str = str & "C"
	  If wmiobjFile.Encrypted Then str = str & "E"
	  Wscript.Echo(str)
	End If
	
  next
  
  for each nextdir in dir.SubFolders
    AnalyzeDir(nextdir)
  Next

 
 End Sub

WScript.Echo()
WScript.Echo("Prohledávání bylo dokončeno")
WScript.StdIn.ReadLine

Ten Basic to je strašně ukecanej jazyk Je to dělaný pro konzoli a přijímá jeden parametr a to je složka ve které to má začít. Když to uložíš jako skript.vbs a budeš chtít projet celý C tak to pusť..

cscript C:\script.vbs C:\

Skript zobrazí jen soubory které jsou buď komprimované nebo šifrované a za jejich názvem pak C pro komprimovaný soubor a E pro šifrovaný.

//EDIT: Dalo by se to možná řešit i SQL dotazem ale nějak se mi to nepodařilo zprovoznit.