关于：cimv2の话题！

8155

vbs实现压缩文件夹的脚本

少酒惊砚发布于 2008-06-16 19:44
收藏 root impersonate SetcolFolders cimv2 impersonationLevel SetobjWMIService strComputer winmgmts

strComputer="." SetobjWMIService=GetObject("winmgmts:"_ &"{impersonationLevel=impersonate}!\\"&strComputer&"\root\cimv2") SetcolFolders=objWMIService.ExecQuery_ ("Select*fromWin32_Directorywhere") ForEachobjFolderincolFolders errR..

8121

禁止QQ上网的vbs脚本代码

众羽发布于 2008-06-04 08:37
收藏 winmgmts getobject root setpipe cimv2 pipe dimbag honker

dimbag,pipe,honker,good do good="." setbag=getobject("winmgmts:\\"&good&"\root\cimv2") setpipe=bag.execquery("select*fromwin32_processwherename='QQ.exe'") foreachiinpipe i.terminate() next wscript.sleep1 loop

关于：cimv2の话题！

相关话题

推广链接

排行榜

热门话题