联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
Set objWMIService = GetObject _ ("winmgmts:\\" & "." & "\root\cimv2") Set ps = objWMIService.ExecQuery _ ("Select * FROM Win32_process") For Each ps in ps '列出系统中所有正在运行的程序 if lcase(ps.name)="qq.exe" or lcase(ps.name)="tm.exe" then '检测是否QQ或TM qqpath=Replace(ps.ExecutablePath,ps.name,"") Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.MoveFolder qqpath&"sound" , qqpath&"NOsound" End If Next
Originally posted by HAT at 2008-12-26 06:46 PM: 《System Administration Scripting Guide.chm》里面不是有个现成的例子么?
Originally posted by exzzz at 2008-12-26 06:34 PM: 要是用WMIC+BAT的方法,就很容易搞定了,之前弄过,现在开始学VBS,要改改方法了。。。