使用wincc vbs脚本查找进程及如何运行进程

使用vbs代码查看某个进程是否在运行，本文要检查的进程名为 QRscan.exe，其代码以下：

sub CheckProcess

Dim WMI,Objs,Process,Obj
Set WMI=GetObject("WinMgmts:")
Set Objs=WMI.InstancesOf("Win32_Process")
Process=""

'遍历全部在运行的进程
For Each Obj In Objs
'Process=Process & Obj.Description & Chr(13) & Chr(10)
Process = Obj.Description
If Process = "QRscan.exe" Then
Msgbox "QRscan.exe在运行中..."
Exit For '发现所需进程时退出遍历
end if
Next

End sub

当遍历结束扔没有找到该进程时，可开启该进程，其代码以下：

dim objShell

set objShell = CreateObject(“Wscript.Shell”)

objShell.Run “E:\\QRscan.exe” ,,true  '假如此进程路径在E盘根目录 第一个参数：进程路径，第二参数：窗口形式，第三个参数：同步/异步执行；