Než se pustíš do skriptování, měl bys projet aspoň základy Skloubil jsem hostův kód s tím z odkazu a vyšlo

set objWMI = GetObject("winmgmts:\\.\root\cimv2")

Set fsoFolder = CreateObject("Scripting.FileSystemObject")
Set folder = fsoFolder.GetFolder("C:\")
Set files = folder.Files

for each objFile in files
strFilePath = "C:\\" & objFile.Name
set wmiobjFile = objWMI.Get("CIM_Datafile=""" & strFilePath & """")
msgbox objFile.Name & ", Compressed: " & wmiobjFile.Compressed & ", Encrypted: " & wmiobjFile.Encrypted
next