vbs实现压缩文件夹的脚本

strComputer = "."
Set objWMIService = GetObject（"winmgmts:" _
    & "{impersonationLevel=impersonate}！\" & strComputer & " ootcimv2"）
Set colFolders = objWMIService.ExecQuery _
    （"Select * from Win32_Directory where "）
For Each objFolder in colFolders
    errResults = objFolder.Compress
    Wscript.Echo errResults
Next