[osp2008]

или подскажите как стартовать файл только в том случае если его нет среди запущенных процессов

[deepred]

osp2008,

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

Код:

strCommand = "Notepad.exe"

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

Set colProcesses = objWMIService.ExecQuery( _
    "Select * from Win32_Process " _
    & "Where Name = '"& strCommand &"'")

    If colProcesses.count = 0 Then

           Set objProcess = objWMIService.Get _
                            ("Win32_Process")
           intRet = objProcess.Create _
                    (strCommand, Null, null, intProcessID)

              If not intRet = 0 Then
                 Wscript.Echo "Ошибка создания процесса" & _
                         vbcrlf & "Command line: " & strCommand
              End If

    Else
       Wscript.Echo   "Существует " & colProcesses.count _
                    & " экземпляр(ов) процесса" & strCommand   
    End if

Создай задачу в планировщике на кратный запуск скрипта через необходимый интервал времени...

[awkozlov]

По отслеживанию зависшего процесса вот здесь пытаемся код создать

[Iska]

PowerShell:

Код:

$sPath2App = "E:\Песочница\0263\BadApp\BadApp.exe"

$oProcess = Get-Process -Name BadApp -ErrorAction:SilentlyContinue

if($oProcess -eq $NULL) {
    Start-Process -FilePath $sPath2App
} else {
    if(-not $oProcess.Responding) {
        $oProcess.Kill()
        Start-Process -FilePath $sPath2App
    }
}

В качестве исполняемого файла использовалась утилита для имитации различных состояний процесса: Bad Application - Hang Process, Crash, Terminate Explorer - NTWind Software.