&НаКлиенте

Процедура ЗавершитьВсеСеансыРаботыСТестовымиПриложениями()

Если массивТестовыхПриложений.Количество() <> 0 Тогда

Для Каждого Подопытный Из массивТестовыхПриложений Цикл

Подопытный.РазорватьСоединение();

КонецЦикла;

ЗавершитьВсеТестовыеПриложенияПринудительно();

КонецЕсли;

КонецПроцедуры

&НаКлиенте

Процедура ЗавершитьВсеТестовыеПриложенияПринудительно()

Утверждения.ПроверитьЗаполненность(массивТестовыхПриложений.Количество(), "массивТестовыхПриложений.Количество()");

Scr = Новый COMОбъект("MSScriptControl.ScriptControl");

Scr.Language = "vbscript";

Scr.AddCode("

|Option Explicit

|

|Dim objWMIService, objProcess, colProcess

|

|Set objWMIService = GetObject(""winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2"")

|

|Set colProcess = objWMIService.ExecQuery(""Select * from Win32_Process Where (CommandLine Like '%/TESTCLIENT%' And ExecutablePath Like '%1cv8c%')"")

|

|For Each objProcess in colProcess

| objProcess.Terminate()

|Next

|");

КонецПроцедуры