vbs实现压缩文件夹的脚本
发布时间：2016-12-28 来源：查字典编辑
摘要：strComputer="."SetobjWMIService=GetObject("winmgmts:"_&"{impersonation...
strComputer="."
SetobjWMIService=GetObject("winmgmts:"_
&"{impersonationLevel=impersonate}!"&strComputer&"rootcimv2")
SetcolFolders=objWMIService.ExecQuery_
("Select*fromWin32_Directorywhere")
ForEachobjFolderincolFolders
errResults=objFolder.Compress
Wscript.EchoerrResults
Next