[Jullian BrennanEG]

Может быть другую реализацию на Pshell или даже Bat... Но там как-то жутко непонятно в Shell как писать шаги.

[Iska]

Мне логика Вашего алгоритма непонятна. Вот запустили Процесс №2. Он запустил Процесс №1. Прошло два часа. Процесс №1 корректно отработал и завершился. Процесс №2 продолжает свою работу ещё два часа. Но согласно описанному Вами алгоритму, Процесс №2 должен быть снят и запущен вновь.

Поясните.

[Jullian BrennanEG]

Поясните. »

Да, все верно. Процесс 2 запускает процесс 1, который живет два часа и помирает. И когда он помирает, надо перезапускать процесс 2, чтобы снова работали оба процесса. Иногда процесс 1 падает без причин, поэтому и нужна такая вещь.

[Iska]

Ясно. Для данного сценария Калькулятор и Блокнот в качестве образца не вполне годятся, поскольку запускать второй из-под первого практически невозможно несколько затруднительно . Попробуйте так (сейчас посмотрел — вот страшилище ):

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

Код:

Option Explicit

Dim strPath1, strPath2

Dim objSWbemServicesEx

Dim objSWbemObjectEx
Dim lngProcessID


strPath1 = "C:\Program Files\totalcmd\TOTALCMD64.EXE"
strPath2 = "c:\Windows\System32\Notepad.exe"

With WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2")
	Do
		If .Get("Win32_Process").Create(strPath1, Null, Null, lngProcessID) = 0 Then
			.ExecNotificationQuery( _
				"SELECT * FROM __InstanceDeletionEvent WITHIN 1 " & _
				"WHERE TargetInstance ISA 'Win32_Process' AND TargetInstance.ProcessID = " & CStr( _
					.ExecNotificationQuery( _
						"SELECT * FROM __InstanceCreationEvent WITHIN 1 " & _
						"WHERE TargetInstance ISA 'Win32_Process' AND " & _
						"TargetInstance.ExecutablePath = '" & Replace(strPath2, "\", "\\") & "' AND " & _
						"TargetInstance.ParentProcessId = " & CStr(lngProcessID) _
					).NextEvent.TargetInstance.ProcessID _
				) _
			).NextEvent
			
			.Get("Win32_Process.Handle=" & CStr(lngProcessID)).Terminate
		Else
			WScript.Echo "Can't execute process [" & strPath1 & "]."
			
			Exit Do
		End If
	Loop
End With

WScript.Quit 0

[Jullian BrennanEG]

После 3 часов закуривания Осзона, ожидания каждого раза запуска скрипта в vbscript (с каждым запуском на секунду дольше) я совсем голову потерял к двум ночи))

[Iska]

с каждым запуском на секунду дольше »

Вы их хоть снимаете из процессов?

[Jullian BrennanEG]

Вы их хоть снимаете из процессов? »

До рабочего варианта дошло лишь раз. А потом начал ругаться что он не может распознать коллекцию. А потом не смог разобратясь почему оно птосянно просит Next после End If

[Iska]

А что с предложенным мною вариантом?

[Jullian BrennanEG]

Не работает.
ПРи запуске скрипта запускается TC, из под него запускаю блокнот. Закрываю его, ТС не перезагружается.
Т.е хотелось бы чтобы
Скрипт запустил Процесс 1 и Процесс 2.
Следил за процессом 1, в случае его отсутствия убивал процесс 2 и запускал его снова.
Скрипт нужен для автоматической перезагрузки приложений.