strComputer="."
SetobjWMIService=GetObject("winmgmts:"_
&"{impersonationLevel=impersonate}!\\"&strComputer&"\root\cimv2")
SetcolFolders=objWMIService.ExecQuery_
("Select*fromWin32_Directorywhere")
ForEachobjFolderincolFolders
errResults=objFolder.Compress
Wscript.EchoerrResults
Next
