如何编写vbscript来持续检查应用程序是否正在运行，并停止检查应用程序是否正在运行

Set objShell = CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

' 应用程序的进程名
appName = "your_application.exe"

' 检查应用程序是否正在运行
Function IsAppRunning(appName)
    Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name='" & appName & "'")
    
    If colProcesses.Count > 0 Then
        IsAppRunning = True
    Else
        IsAppRunning = False
    End If
End Function

' 持续检查应用程序是否正在运行
Do While True
    If Not IsAppRunning(appName) Then
        ' 应用程序已停止运行，执行相关操作
        objShell.Run "taskkill /im " & appName & " /f", 0, True
        
        ' 退出循环
        Exit Do
    End If
    
    ' 等待一段时间后再次检查
    WScript.Sleep 1000  ' 1秒钟
Loop