Чтобы проверить, запущен процесс или нет, используя VBScript, вы можете использовать различные методы. Вот несколько примеров:

Метод 1: WMI (инструментарий управления Windows)

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'processname.exe'")
If colProcesses.Count > 0 Then
    WScript.Echo "Process is running."
Else
    WScript.Echo "Process is not running."
End If

Метод 2: команда оболочки

Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec("tasklist /FI ""IMAGENAME eq processname.exe""")
If Not objExec.StdOut.AtEndOfStream Then
    WScript.Echo "Process is running."
Else
    WScript.Echo "Process is not running."
End If

Метод 3: GetObject

Set objWMI = GetObject("winmgmts:")
Set colProcesses = objWMI.InstancesOf("Win32_Process")
bProcessFound = False
For Each objProcess In colProcesses
    If LCase(objProcess.Name) = "processname.exe" Then
        bProcessFound = True
        Exit For
    End If
Next
If bProcessFound Then
    WScript.Echo "Process is running."
Else
    WScript.Echo "Process is not running."
End If

Не забудьте заменить «processname.exe» фактическим именем процесса, который вы хотите проверить.