怎样用vbs检测正在运行的程序并等待它结束？

Set WMI=GetObject("WinMgmts:")

Dim isrun

Do

isrun=0

Set procs=WMI.InstancesOf("Win32_Process")

For Each p In procs

If "rar.exe"=p.name Then isrun=1

Next

Set procs=Nothing

If 1=isrun Then WScript.Sleep 2*1000

While (1=isrun)

假如你是想在脚本中强制结束，就在脚本中插入wscript.quit 这句。如何你想在运行时结束，就打开任务管理器终结掉wscript.exe。

VBS是基于Visual Basic的脚本语言。VBS的全称是：Microsoft Visual Basic Script Edition。（微软公司可视化BASIC脚本版）。其语言类似Visual Basic（VB）。

脚本语言的特点为:

简单易学。

解释性语言。

集成成熟技术。

VBScript是 Visual Basic Script 的简称，即 Visual Basic 脚本语言，有时也被缩写为 VBSVBScript 是微软开发的一种脚本语言。

使用 VBScript，可通过 Windows 脚本宿主调用 COM，所以可以使用 Windows *** 作系统中可被使用的程序库。

VBScript 一般被用在以下个方面：VBScript 经常被用来完成重复性的Windows *** 作系统任务；用来指挥客户方的网页浏览器。

在这一方面，VBS 与JavaScript 是竞争者，因为本文的实验环境基于 Window 平台，为了达到更好的兼容性和性能选用 VBScript。

---