MyTetra Share
Делитесь знаниями!
Завершить все сеансы работы с тестовыми приложениями
Время создания: 30.08.2016 16:16
Автор: artbear
Текстовые метки: testing
Раздел: Программирование - 1с - Тестирование - Интеграционное
Запись: xintrea/mytetra_anatolean/raw/master/base/1472562991ov9ck7mjf3/text.html на bitbucket.org

&НаКлиенте

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

Если массивТестовыхПриложений.Количество() <> 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

|");

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

 
MyTetra Share v.0.59
Яндекс индекс цитирования