vbs实现压缩文件夹的脚本

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