coherent Единственное условие - работа в сборке
, я пробовал ранее рабочие [more=скрипты]Function OnFirstParentExit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessKill
strComputer = "."
strProcessKill = "'название.ехе'"
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = " & strProcessKill)
For Each objProcess in colProcess
objProcess.Terminate()
Next
End Function
- - - - - - - - - - - - - - - - - - - - - - - - - -
Function OnFirstParentExit
Dim objWMIService, objProcess, colProcessList
Dim strComputer
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'название.ехе'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
End Function [/more], завершающие зависшие процессы при закрытии сборки, но они выводят окошко с ошибкой, с использованием nircmd просто не работает, через taskkill всё в норме, но на миг появляется окошко cmd, от которого и хочется избавиться.