使用vbs脚本来监控windows服务器上的应用程序(不存在就启动)

使用VBS脚本监控Windows服务器上的应用程序

理解任务

我们希望编写一个VBS脚本，能够周期性地检查Windows服务器上是否运行着特定的应用程序。如果该程序未运行，则自动启动它。

实现步骤

1. 创建VBS脚本文件:

   • 打开记事本或任意文本编辑器，新建一个文本文件。
   • 将以下代码复制粘贴到文本文件中，并保存为.vbs格式（例如，monitor_app.vbs）。

2. 编写脚本代码:

' 设置要监控的程序名

strProgramName = "notepad.exe" ' 请替换为你要监控的程序名



' 设置检查间隔（毫秒）

intInterval = 60000 ' 每分钟检查一次



Dim objWsh, objProcess

Set objWsh = WScript.CreateObject("Wscript.Shell")



Do

  ' 检查进程是否存在

  Set objProcess = GetObject("winmgmts:\\.\root\cimv2:Win32_Process")

  blnFound = False

  For Each obj in objProcess

    If UCase(obj.Name) = UCase(strProgramName) Then

      blnFound = True

      Exit For

    End If

  Next



  ' 如果进程不存在，则启动

  If Not blnFound Then

    objWsh.Run strProgramName, 0, True

  End If



  WScript.Sleep intInterval

Loop

3. 代码解释:

   • strProgramName：替换为你要监控的程序的完整名称。
   • intInterval：设置检查间隔，单位为毫秒。
   • Wscript.Shell对象：用于运行程序。
   • Win32_Process：用于获取系统中的所有进程。
   • blnFound：标志位，用于判断程序是否正在运行。
   • 循环：不断检查进程是否存在，如果不存在则启动。

4. 保存并运行脚本:

   • 将保存的VBS脚本文件放置在合适的位置。
   • 双击运行该脚本，即可开始监控。

高级功能与优化

• 日志记录: 可以将监控结果写入日志文件，方便查看历史记录。
• 错误处理: 可以加入错误处理机制，捕获脚本运行过程中可能出现的异常。
• 启动参数: 如果需要为程序传递启动参数，可以在objWsh.Run方法的第二个参数中指定。
• 多进程监控: 可以修改脚本，同时监控多个程序。
• 任务计划程序: 将脚本添加到Windows任务计划程序中，可以实现定时或按事件触发执行。

示例：监控多个程序并记录日志

' ... 省略其他代码



Dim objFSO, objFile

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("monitor.log", 8, True) ' 追加模式



' ... 监控代码



' 记录日志

objFile.WriteLine Now & ": " & strProgramName & " is " & IIf(blnFound, "running", "not running")

objFile.Close

注意事项

• 权限: 脚本需要有足够的权限才能启动其他程序。
• 程序路径: 如果程序不在系统路径中，需要指定完整的路径。
• 进程名: 确保获取的进程名与目标程序的进程名完全一致。
• 循环效率: 如果需要监控大量程序或频繁检查，可以考虑优化循环方式。

其他

• PowerShell: PowerShell提供了更强大的功能和更灵活的语法，可以实现更复杂的自动化任务。
• 第三方工具: 有一些第三方工具可以实现更专业的进程监控功能。

通过这个VBS脚本，你可以轻松地监控Windows服务器上指定应用程序的运行状态，并实现自动启动的功能。

如果你有其他问题或需要更复杂的脚本，欢迎随时提出！