[megaloman]

Нашел готовый vbs-скрипт.

Код:

'*******************************************************************
' Описание: Запуск отсутствующей программы
'*******************************************************************

Exe = "Notepad.exe"                     ' Исполнимый файл программы
PathExe = "C:\WINDOWS\system32"         ' Путь к файлу (без \ на конце)

On Error Resume Next

If Err.Number = 0 Then
    Set WMI = GetObject("winMgmts:")
    Set Processes = WMI.ExecQuery("SELECT * FROM Win32_Process Where Name=""" + Exe + """")
    
    Present = False
    For Each Process In Processes
        Present = (UCase(Process.Name) = UCase(Exe))
'        MsgBox Process.Name + vbCrLf + Exe
    Next
    
    Set WS = CreateObject("WScript.Shell")

    If Not Present Then
        WS.Exec PathExe + "\" + Exe
    End If
    
End If

Поместите его исполнение в планировщик wscript имяскрипта.vbs и настройте его выполнение с нужной вам периодичностью. CMD здесь не удобен - будете потом бороться с окном CMD.

[Iska]

В роли:

программа которая должна работать 24/7 »

— Блокнот:

Скрытый текст

Код:

Option Explicit

Const strProcessPath = "c:\windows\system32"
Const strProcessName = "notepad.exe"


Dim objSWbemServicesEx
Dim objSWbemEventSource


Set objSWbemServicesEx = WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2")

objSWbemServicesEx.Get("Win32_Process").Create strProcessPath & "\" & strProcessName, strProcessPath, Nothing, vbEmpty

Set objSWbemEventSource = objSWbemServicesEx.ExecNotificationQuery( _
	"SELECT * FROM __InstanceDeletionEvent WITHIN 1 " & _
	"WHERE TargetInstance ISA 'Win32_Process' AND " & _
	"TargetInstance.Name = '" & strProcessName & "'" _
)

Do
	objSWbemEventSource.NextEvent
	WScript.Sleep 60 * 1000
	objSWbemServicesEx.Get("Win32_Process").Create strProcessPath & "\" & strProcessName, strProcessPath, Nothing, vbEmpty
Loop

Set objSWbemEventSource = Nothing
Set objSWbemServicesEx  = Nothing

WScript.Quit 0

[alpap]

PowerShell (не ниже 5)

Код:

# Мониторинг процесса (каждые 5 сек), пропал - получим сообщение и запустим процесс через 1мин
$proc = "calc"
Function jbPrc {
  $query    = "Select * from __InstanceDeletionEvent within 5 where TargetInstance ISA 'Win32_Process' and TargetInstance.Name like '%$proc%'"
  $sourceId = "job$proc"
  Register-CimIndicationEvent -Query $query -SourceIdentifier $sourceId -Action {
    Write-Host "Process '$proc' disconnected!"
    Start-Sleep -s 60
    start $proc
  }
}
jbPrc

[Iska]

alpap, почему like, почему не «=»?

[alpap]

Iska,
процесс Calculator для разных операционных систем называется по-разному, думаю не только этот процесс и орфография у некоторых хромает, поэтому - на всякий случай.

[Iska]

alpap, спасибо, ясно.

Я потому нынче пользую notepad.exe в качестве подопытного кролика.

[Vadikan]

http://forum.oszone.net/forumdisplay...ilter_by=title

[Fors1k]

Код:

While($true){(Start calc -PassThru).WaitForExit();Sleep 60}