VBS脚本持续监测进程是否存在，不存在就启动该进程 —— 定时执行专家

boomworks

已于 2024-03-07 23:32:05 修改

阅读量2k

点赞数 1

分类专栏：定时执行专家文章标签：定时执行专家定时执行工具定时任务任务管理 VBS脚本

于 2023-04-16 02:34:45 首次发布

本文链接：https://blog.csdn.net/boomworks/article/details/130132035

版权

定时执行专家专栏收录该内容

123 篇文章

订阅专栏

文章提供了一个VBScript脚本【mon-proc.vbs】，用于监测指定进程（如notepad.exe）是否存在。如果进程不存在，脚本会启动它。通过结合‘定时执行专家’，可以设置间隔触发器（如每5分钟）来周期性检查目标进程，确保其持续运行。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

【需求的背景】

【如何循环监测】

【需求的背景】

需要一个vbs脚本来监测进程（例如：notepad.exe）是否存在。需要间隔一段时间来检查该进程是否存在。如果进程存在，脚本应该不执行任何操作。如果进程不存在，脚本会启动该程序。

以下是一个vbs脚本【mon-proc.vbs】的示例，它可以监测进程是否存在：

''
'' author: boomwxsoft/boomworks
'' 15:44 2023/4/13
'' 
'' usage: need two parameters, ex: "TimingExecutor.exe" "C:\TmExec\TimingExecutor.exe"
''

Dim objArgs
Set objArgs = WScript.Arguments

Dim processName
Dim processPath

processName = objArgs.Item(0)
processPath = objArgs.Item(1)

Set WshShell = WScript.CreateObject("WScript.Shell")
If Not ProcessExists(processName) Then
    WshShell.Run processPath
End If

Function ProcessExists(processName)
    Dim objWMIService, colProcesses, objProcess
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name ='" & processName & "'")
    If colProcesses.Count > 0 Then
        ProcessExists = True
    Else
        ProcessExists = False
    End If
End Function

在上面这个示例中，脚本会检查是否有名为“参数1”的进程正在运行。如果没有，则会打开“参数2”的程序（例如：notepad.exe）。