Alz50
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код: 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 = 'Zoner Photo Studio X.exe'") For Each objProcess in colProcessList objProcess.Terminate() Next End Function |