一直用以下代码,如果是多个的时候,也只能复制多一次,把exe名字给改了,代码有点儿累赘。能精简一下吗?例如iexplore.exe,QQ.exe,vb6.exe。- strComputer="."
- Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
- Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name='iexplore.exe' ")
- For Each objProcess in colProcessList
- objProcess.Terminate()
- Next
复制代码
|