[C0D3X]

Iska, меня полностью устраивает ваше решение

Все что мне нужно это доработать это решение до примерно такого:

Код:

Option Explicit

Dim strServiceName

Dim objSWbemObjectEx


strServiceName = "messenger"

With WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2")
	With .Get("Win32_Service.Name='" & strServiceName & "'")
		If .State = "Running" Then
			If Not .StopService() = 0 Then
				Sleep 20000 'Ждем - может процесс все-таки с задержкой, но завершится
				If .State = "Running" Then 'Если и спустя 20 секунд все еще запущен,то
					'Вызов функции поиска ID процесса, отвечающего за зависший сервис
					'"Убийство соответствующего PID
					'Вызов функции стартующей сервис
				End If
			End If
		End If
	End With
End With

WScript.Quit 0

Iska, я уверен тебе вполне по силам помочь в данной задачке, пожалуйста помоги, а историю своей жизни и работы я как-нибудь в следующий раз распишу.
Спасибо!

Поясните по поводу автоматизации. В новом сценарии звонок из филиала остаётся в наличии? »

Зачем звонок если сервис будет самовосстанавливаться автоматически (средствами винды - задание по расписанию)?