使用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盤根目錄 第一個參數：進程路徑，第二參數：窗口形式，第三個參數：同步/異步執行；