Batcher

回复 1# yyz219

Set objWMIProcess = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * From Win32_Process")
For Each objProcess In objWMIProcess
    If objProcess.Name = "QQ.exe" Then
        WScript.Echo objProcess.Name
    End If
Next
复制代码

Batcher

回复 3# yyz219

ProcExist = "0"
Set objWMIProcess = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * From Win32_Process")
For Each objProcess In objWMIProcess
    If objProcess.Name = "QQ.exe" Then
        ProcExist = "1"
    End If
Next
If ProcExist = "0" Then
    MsgBox "Process QQ.exe not exist"
Else
    MsgBox "Process QQ.exe exist"
End If
复制代码

Batcher

如果进程不存在则启动相关应用程序

ProcExist = "0"
Set objWMIProcess = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * From Win32_Process")
For Each objProcess In objWMIProcess
    If objProcess.Name = "QQ.exe" Then
        ProcExist = "1"
    End If
Next
If ProcExist = "0" Then
    Set objShell = WScript.CreateObject ("WSCript.Shell")
    objShell.Run """C:\Program Files (x86)\Tencent\QQ\Bin\QQ.exe"""
End If
复制代码