v8.3: Как в 8.3 удалять сеансы с помощью регламентного задания?

 net stop "1C:Enterprise 8.2 Server Agent"

net start "1C:Enterprise 8.2 Server Agent"   

 Dim Connector, Agent, Cluster, WorkProcess, WorkProcessConnection, Base, Connections, i, CurrentConnection

Dim BaseList





BaseName = "ИмяБазы"





Set Connector = CreateObject("V81.COMConnector")





Set Agent = Connector.ConnectAgent("ИмяКластера")





Set Cluster = Agent.GetClusters()(0)





Agent.Authenticate Cluster, "Логин", "Пароль"





For Each WorkProcess In Agent.GetWorkingProcesses(Cluster)





    ConnectString = WorkProcess.HostName & ":" & WorkProcess.MainPort





    Set WorkProcessConnection = Connector.ConnectWorkingProcess(ConnectString)





    WorkProcessConnection.AddAuthentication "Логин", "Пароль"





    BaseList = WorkProcessConnection.GetInfoBases()





    For i = LBound(BaseList) To UBound(BaseList)

        If BaseList(i).Name = BaseName Then

            Set Base = BaseList(i)





            Connections = WorkProcessConnection.GetInfoBaseConnections(Base)





            For j = LBound(Connections) To UBound(Connections)

                Set CurrentConnection = Connections(j)

                If CurrentConnection.AppID <> "COMConsole" Then

                    WorkProcessConnection.Disconnect CurrentConnection

                End If

            Next

        End If

    Next

Next





Set Connector = Nothing

Set Agent = Nothing

Set Cluster = Nothing

Set WorkProcess = Nothing

Set WorkProcessConnection = Nothing

Set Base = Nothing

Set Connections = Nothing

Set i = Nothing

Set CurrentConnection = Nothing   

 Процедура УдалитьСеансы()

	ПараметрыАдминистрированияИБ=ПолучитьПараметрыАдминистрированияИБ();

	Попытка

		Сеансы = ПолучитьАктивныеСеансыИБ(ПараметрыАдминистрированияИБ);

		Для каждого Сеанс Из Сеансы.Сеансы Цикл

			// Разрываем Connections с ИБ

						

			Сеансы.АгентСервера.TerminateSession(Сеансы.КластерСерверов, Сеанс);

			СтрСообщение = ПодставитьПараметрыВСтроку(

								НСтр("ru = 'Разорван сеанс: Пользователь %1, компьютер %2, начат %3, режим %4'"),

								Сеанс.UserName,

								Сеанс.Host,

								Сеанс.StartedAt,

								Сеанс.AppID);

			ЗаписьЖурналаРегистрации(НСтр("ru = 'Завершение работы пользователей'"), УровеньЖурналаРегистрации.Информация, , , СтрСообщение);	

		КонецЦикла;

		

	Исключение

		

		ЗаписьЖурналаРегистрации(НСтр("ru = 'Завершение работы пользователей'"), УровеньЖурналаРегистрации.Ошибка, , , ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));





		

		ОписаниеОшибки = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());

				

	КонецПопытки;





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

		

Функция ПолучитьАктивныеСеансыИБ(НастройкаБлокировки, знач ВсеКромеТекущего = Истина)

	

	Результат = Новый Структура("АгентСервера,КластерСерверов,Сеансы", Неопределено, Неопределено, Новый Массив);

	ПодстрокиСтрокиСоединения = РазложитьСтрокуВМассивПодстрок(

		СтрокаСоединенияИнформационнойБазы(), ";");

	

	ИмяСервера = СократитьДвойныеКавычки(Сред(ПодстрокиСтрокиСоединения[0], 7));

	ИмяИБ      = СократитьДвойныеКавычки(Сред(ПодстрокиСтрокиСоединения[1], 6));

	

	СистемнаяИнфо = Новый СистемнаяИнформация;

	ПодстрокиВерсии = РазложитьСтрокуВМассивПодстрок(

		СистемнаяИнфо.ВерсияПриложения, ".");

	ИмяCOMСоединителя="v" + ПодстрокиВерсии[0] + ПодстрокиВерсии[1] + ".COMConnector";





	

	COMСоединитель = Новый COMОбъект(ИмяCOMСоединителя);

	

	РазделительПорта = Найти(ИмяСервера, ":");

	Если РазделительПорта > 0 Тогда

		ИмяИПортСервера = ИмяСервера;

		ИмяСервера = Сред(ИмяИПортСервера, 1, РазделительПорта - 1);

		НомерПортаКластера = Число(Сред(ИмяИПортСервера, РазделительПорта + 1));

	ИначеЕсли НастройкаБлокировки.ПортКластераСерверов <> 0 Тогда

		НомерПортаКластера = НастройкаБлокировки.ПортКластераСерверов;

	Иначе

		НомерПортаКластера = COMСоединитель.RMngrPortDefault;

	КонецЕсли;

	

	ИдентификаторАгентаСервера = ИмяСервера;

	Если НастройкаБлокировки.ПортАгентаСервера <> 0 Тогда

		ИдентификаторАгентаСервера = ИдентификаторАгентаСервера + ":" + 

			Формат(НастройкаБлокировки.ПортАгентаСервера, "ЧГ=0");

	КонецЕсли;

	

	// Подключение к агенту сервера

	АгентСервера = COMСоединитель.ConnectAgent(ИдентификаторАгентаСервера);

	Результат.АгентСервера = АгентСервера; 

	

	// Найдем необходимый нам кластер

	Для каждого Кластер Из АгентСервера.GetClusters() Цикл

		

		Если Кластер.MainPort <> НомерПортаКластера Тогда

			Продолжить;

		КонецЕсли;

		

		Результат.КластерСерверов = Кластер; 

		АгентСервера.Authenticate(Кластер, НастройкаБлокировки.ИмяАдминистратораКластера, 

			НастройкаБлокировки.ПарольАдминистратораКластера);

		

		// Получаем список сеансов

		НомерТекущегоСеанса = НомерСеансаИнформационнойБазы();

		СписокСеансов = АгентСервера.GetSessions(Кластер);

		Для Каждого Сеанс из СписокСеансов Цикл

			Если ВРег(Сеанс.InfoBase.Name) <> ВРег(ИмяИБ) Тогда

				Продолжить;

			КонецЕсли;

			Если НЕ ВсеКромеТекущего ИЛИ (НомерТекущегоСеанса <> Сеанс.SessionID) Тогда

				Результат.Сеансы.Добавить(Сеанс);

			КонецЕсли;

		КонецЦикла;

		

	КонецЦикла;

	

Возврат Результат;





КонецФункции