找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 18615|回复: 3

[问题求助] [已解决]VBS如何结束多个进程呢?

[复制链接]
发表于 2014-3-8 18:34:45 | 显示全部楼层 |阅读模式
一直用以下代码,如果是多个的时候,也只能复制多一次,把exe名字给改了,代码有点儿累赘。能精简一下吗?例如iexplore.exe,QQ.exe,vb6.exe。
  1. strComputer="."
  2. Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2")
  3. Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name='iexplore.exe' ")
  4. For Each objProcess in colProcessList  
  5. objProcess.Terminate()
  6. Next
复制代码

评分

参与人数 1PB +2 收起 理由
Batcher + 2 感谢给帖子标题标注[已解决]字样

查看全部评分

发表于 2014-3-8 19:06:54 | 显示全部楼层
where Name='iexplore.exe' or Name='QQ.EXE' or Name='vb6.exe'

评分

参与人数 1技术 +1 收起 理由
Batcher + 1 乐于助人

查看全部评分

发表于 2014-3-8 19:43:42 | 显示全部楼层
或者cmd
  1. tasklist /f /im qq.exe /im iexplore.exe
复制代码
  1. strComputer="."
  2. Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2")
  3. Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name='wscript.arguments(0)' ")
  4. For Each objProcess in colProcessList  
  5. objProcess.Terminate()
  6. Next
复制代码
或者vbs传递参数

评分

参与人数 1技术 +1 收起 理由
Batcher + 1 乐于助人

查看全部评分

 楼主| 发表于 2014-3-9 13:47:34 | 显示全部楼层
where Name='iexplore.exe' or Name='QQ.EXE' or Name='vb6.exe'
apang 发表于 2014-3-8 19:06



    超级感谢,就是这样。谢谢谢谢谢谢
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 17:20 , Processed in 0.021336 second(s), 9 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表