Отлично то что нужно большое спасибо .:)
Но есть маленький минус не получается сверху добавить другой скрипт например "On Error Resume Next".
А точнее хочется чтоб была защита от повторного запуска этого скрипта.
Так сказать сделать последний штрих .
Option Explicit
Dim arrProcessNames
Dim strProcessName
Dim strWqlQuery
Dim colEvents
Dim objWshShell
arrProcessNames = Array("calc1.exe","calc2.exe","calc3.exe")
Set objWshShell = CreateObject("WScript.Shell")
strWqlQuery = "SELECT * FROM __InstanceOperationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_Process' AND (TargetInstance.Name = '" & Join(arrProcessNames, "' OR TargetInstance.Name = '") & "')"
Set colEvents = GetObject("winmgmts:\\.\Root\CIMV2").ExecNotificationQuery(strWqlQuery)
Do
With colEvents.NextEvent
'если процесс запускается
If .Path_.Class = "__InstanceCreationEvent" Then
objWshShell.Run "taskkill /f /IM notepad.exe", 0
'если процесс завершается
ElseIf .Path_.Class = "__InstanceDeletionEvent" Then
objWshShell.Run "notepad.exe"
End If
End With
Loop
В примере моего кода это реализовано.
Ну первое черное окно которое показывает какой процесс открылся потом закрылся .Пробую WshShell.Run "taskkill /f /IM notepad.exe", 0 просит WshShell.Run и много какие моменты.
А тот код который дал он работает совершенно по другому .
Если вы сможете изменить код который я дал очень буду признателен . 
можно ли сделать так чтоб срабатывало не только один "calc.exe" а несколько?
В примере моего кода это реализовано.
]]>zcccz, приветствую ! Да, без проблем.
Спасибо конечно но вы не тот код изменили .
Мне нужно именно этот изменить .
Set WSHShell = WScript.CreateObject("WScript.Shell")
Const ProcName = "calc.exe"
Set colEvents = GetObject("winmgmts:\\.\Root\CIMV2").ExecNotificationQuery( _
"SELECT * FROM __InstanceOperationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_Process' " & _
"AND TargetInstance.Name = '" & ProcName & "'")
Do
With colEvents.NextEvent
'если процесс запускается
If .Path_.Class = "__InstanceCreationEvent" Then
WshShell.Run "taskkill /f /IM notepad.exe", 0
'если процесс завершается
ElseIf .Path_.Class = "__InstanceDeletionEvent" Then
WshShell.Run "notepad.exe"
End If
End With
LoopА ваш пробую и совершенно не то получается.
Option Explicit
Dim arrProcessNames
Dim strProcessName
Dim strWqlQuery
Dim colEvents
RunInConsoleMode()
arrProcessNames = Array("calc.exe","calculator.exe","win32calc.exe","notepad.exe")
strWqlQuery = "SELECT * FROM __InstanceOperationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_Process' AND (TargetInstance.Name = '" & Join(arrProcessNames, "' OR TargetInstance.Name = '") & "')"
Set colEvents = GetObject("winmgmts:\\.\Root\CIMV2").ExecNotificationQuery(strWqlQuery)
Do
With colEvents.NextEvent
'если процесс запускается
If .Path_.Class = "__InstanceCreationEvent" Then
Wsh.Echo "Process " & .TargetInstance.Name & "[" & .TargetInstance.ProcessId & "] created"
'если процесс завершается
ElseIf .Path_.Class = "__InstanceDeletionEvent" Then
Wsh.Echo "Process " & .TargetInstance.Name & "[" & .TargetInstance.ProcessId & "] terminated"
End If
End With
Loop
Sub RunInConsoleMode()
If InStr(1,WScript.FullName,"cscript.exe") < 1 Then
CreateObject("WScript.Shell").Run("cscript //nologo """ & WScript.ScriptFullName & """")
WScript.Quit
End if
End Sub
Set WSHShell = WScript.CreateObject("WScript.Shell")
Const ProcName = "calc.exe"
Set colEvents = GetObject("winmgmts:\\.\Root\CIMV2").ExecNotificationQuery( _
"SELECT * FROM __InstanceOperationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_Process' " & _
"AND TargetInstance.Name = '" & ProcName & "'")
Do
With colEvents.NextEvent
'если процесс запускается
If .Path_.Class = "__InstanceCreationEvent" Then
WshShell.Run "taskkill /f /IM notepad.exe", 0
'если процесс завершается
ElseIf .Path_.Class = "__InstanceDeletionEvent" Then
WshShell.Run "notepad.exe"
End If
End With
LoopРешил отладиться на таком коде и тут же увидел в чём дело.
EnableConsoleMode()
Set colEvents = GetObject("winmgmts:\\.\Root\CIMV2").ExecNotificationQuery( _
"SELECT * FROM " & _
"__InstanceCreationEvent WITHIN 1 " & _
"WHERE " & _
"TargetInstance ISA 'Win32_Process'")
Do
With colEvents.NextEvent
WScript.Echo .TargetInstance.Name
End With
Loop
Sub EnableConsoleMode()
If InStr(1,WScript.FullName,"cscript.exe") < 1 Then
CreateObject("WScript.Shell").Run("cscript //nologo """ & WScript.ScriptFullName & """")
WScript.Quit
End if
End Sub
Все таки скрипт не отрабатывает как нужно при длительном простое
Если скрипт автоматически закрывается, то посмотрите, стоит ли галочка: "Остановить сценарий после указанного числа секунд" в параметрах сервера сценариев.
]]>Все таки скрипт не отрабатывает как нужно при длительном простое, при открытии calc.exe не закрываеться notepad.exe, за то ликвидируеться сам скрипт !
]]>svoboden
Честно сказать я тоже интерпритировал работу скрипта так же как и Xameleon. Как же он тогда отрабатывает ?
но не запускает блокнот!
А он и не должен его запускать, если не закроется процесс calc.exe.
]]>Такой вариант скрипта, как приведён выше, требует, чтобы calc.exe был запущен после запуска скрипта (Т.е если calc.exe был запущен до запуска скрипта, то уже условие не сработает, т.к скрипт мониторит именно появление новых процессов и игнорирует старые.)
]]>