[решено] vbscript проверить процесс

[Mescaline]

нужно каждые 30мин проверять процесс, если нет запустить файл (например c:\test.exe). такое возможно реализовать, без стороннего софта?

[Mescaline]

нагуглил такой код, не заработал.


sProcessName = "process.exe"

sComputer = "." ' use "." for local computer
Set oWmi = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2")

Set oShell = CreateObject("WScript.Shell")

' go into eternal loop
Do
Set colProcessList = oWmi.ExecQuery _
("Select * from Win32_Process Where Name = '" & sProcessName & "'")

If colProcessList.Count = 0 Then
' process is not running

' do the CLFYtest here

If remote server is up Then
oShell.Run "C:\name.exe", 1, False
End If
End If

WScript.Sleep 5 * 60 * 1000 ' wait 5 minutes before trying again
Loop


где ошибка ?

[Iska]

такое возможно реализовать, без стороннего софта? »
Возможно. Почему каждые 30 минут, и какой именно процесс?

[Mescaline]

Почему каждые 30 минут »
можно и 40, суть не в этом. (консольная программа часто вылетает, нужно восстанавливать процесс).
какой именно процесс? »
в деспетчере задач

[Iska]

Перефразирую: процесс, который проверяем, и процесс, который запускаем — это одно и то же приложение?

[Mescaline]

Iska, спасибо за попытку помочь. решение найдено. не актуально.