strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
     "{impersonationLevel=impersonate}!\\"  strComputer  "\root\cimv2")
Set colFolders = objWMIService.ExecQuery _
    ("Select * from Win32_Directory where ")
For Each objFolder in colFolders
    errResults = objFolder.Compress
    Wscript.Echo errResults
Next