san1kan
29-01-2017, 14:45
Доброго времени суток! Есть скрипт
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery( _
"Select Name From Win32_Process " _
& "Where Name = 'proc1.exe'")
If colProcesses.Count = 0 Then
Set objShell = Wscript.CreateObject("Wscript.Shell")
objShell.Run "proc2.exe"
End If
proc2 по факту батник для запуска proc1 с ключами.
Данный скрипт необходимо поставить в цикл, на проверку например каждые 5 минут наличия Proc1 и соответственно запуска proc2 при его отсутствии.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery( _
"Select Name From Win32_Process " _
& "Where Name = 'proc1.exe'")
If colProcesses.Count = 0 Then
Set objShell = Wscript.CreateObject("Wscript.Shell")
objShell.Run "proc2.exe"
End If
proc2 по факту батник для запуска proc1 с ключами.
Данный скрипт необходимо поставить в цикл, на проверку например каждые 5 минут наличия Proc1 и соответственно запуска proc2 при его отсутствии.