vbs实现压缩文件夹的脚本

1. strComputer = "."  
2. Set objWMIService = GetObject("winmgmts:" _  
3.     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")  
4. Set colFolders = objWMIService.ExecQuery _  
5.     ("Select * from Win32_Directory where ")  
6. For Each objFolder in colFolders  
7.     errResults = objFolder.Compress  
8.     Wscript.Echo errResults  
9. Next