[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

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