[Windows] Автоматический перезапуск программы после сбоя

Question

[Максим]

Есть одна небольшая, но нужная программа для Windows, которая имеет тенденцию периодически помирать без видимых причин.

Нужна софтина, которая умеет мониторить наличие запущенного процесса, и при его отсутствии через определённое время запускать его заново.

Windows XP, если это имеет значение.

Answer 1

[rinx]

Добрый день,
Ваша программа может быть зарегистрирована в системе как сервис?
Если да, то вкладка «Recovery» в свойствах сервиса вам поможет:
mdenomy.wordpress.com/2008/02/28/using-the-automatic-recovery-features-of-windows-services/

Answer 2

[Григорий]

Второй вариант — в sheduled task создать задачу с этим приложением, выполняться каждую минуту, duration по максимуму, не завершать в случае, если задача еще выполняется.

Answer 3

[Killy]

Application Monitor или Keep Running, например. (Если именно софтина, а не скрипт :)

Answer 4

[Михаил]

pslist.exe -e "процесс"
if %errorlevel%==1 start "" "программа"

pslist входит в состав pstools, качается с майкрософтофского технета

Comments

[Михаил]

Есессно, что это в батнике, а батник в планировщике задач с нужной периодичностью...

Answer 5

[strib]

Если не запускается как служба.
«и при его отсутствии через определённое время» — это сколько?
1) Минуты — WSH в помощь, определить наличие процесса в выводе tasklist и запустить его. В качестве расписания использовать стандартный планировщик. Мануалов в сети куча
2) Секунды — то или искать готовый watchdog, или писать самому. Тоже проблемы особой нет.

Comments

[Максим]

мне бы готовое с гуём для тупых =)
WSH на всех машинах есть или нужно отдельно ставить?

[Gariks]

WSH насколько я знаю, есть во всех сборках Windows начиная с 98.

[MaxUp]

Option Explicit
Dim objWMIService, objProcess, colProcess, objShell
Dim strComputer, strList, status, strProgramPath

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")

Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process")

status = 0

For Each objProcess in colProcess
If objProcess.Name = "mysoftware.exe" then
status = 1
End If

Next

if status = 0 then
set objShell = createobject("Wscript.Shell")
objShell.Run chr(34) & "C:\Program Files\mysoftware.exe" & Chr(34)
End if
WScript.Quit

и через планировщик запускать раз в минуту-две

Answer 6

[Григорий]

Код На vbscript слепленный из 2 примеров:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'Notepad.exe'")
For Each objProcess in colProcesses
Wscript.quit
Next

Error = objWMIService.Create("notepad.exe", null, null, intProcessID)
If Error = 0 Then
Wscript.Echo "Notepad was started with a process ID of " _
& intProcessID & "."
Else
Wscript.Echo "Notepad could not be started due to error " & _
Error & "."
End If