Зависают сеансы пользователей на сервере 1С

(5) вот код моего регламентного.

Процедура УдалениеСеансовВНазначенноеВремя() Экспорт

    Успех = Истина;
    пИмяАдминистратораКластера = "";
    пПарольАдминистратораКластера = "";
    пИмяАдминистратораИнформационнойБазы = "";
    пПарольАдминистратораИнформационнойБазы = "";

    //параметры
    Попытка
        ВремяУдаленияСеансов = Константы.abtВремяУдаленияСеансов.Получить();
        ДатаУбийства = Дата(Год(ТекущаяДата()),Месяц(ТекущаяДата()),День(ТекущаяДата()), Час(ВремяУдаленияСеансов), Минута(ВремяУдаленияСеансов), Секунда(ВремяУдаленияСеансов));

        пАдресСервераАдминистрирования = "";
        пИмяИнформационнойБазыВКластере = "";
        //Порт Сервера Администрирования
        пПортСервераАдминистрирования = СокрЛП(Константы.abtПортСервераАдминистрирования.Получить()); //"1545"
        пПортСервераАдминистрирования = ?(пПортСервераАдминистрирования = "", "1545", пПортСервераАдминистрирования);
        //Порт Кластера
        пПортКластера = СокрЛП(Константы.abtПортКластера.Получить()); //"1541";
        пПортКластера = ?(пПортКластера = "", "1541", пПортКластера);
        //Имя Администратора Кластера
        пИмяАдминистратораКластера = СокрЛП(Константы.abtИмяАдминистратораКластера.Получить());
        //Пароль Администратора Кластера
        пПарольАдминистратораКластера = СокрЛП(Константы.abtПарольАдминистратораКластера.Получить());
        //Имя Администратора Информационной Базы
        ПользовательИнформационнойБазыРегламентныхЗаданий = Константы.abtПользовательИнформационнойБазыРегламентныхЗаданий.Получить();
        Если НЕ ПользовательИнформационнойБазыРегламентныхЗаданий = Справочники.Пользователи.ПустаяСсылка() Тогда
            ПользовательИБ = ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(ПользовательИнформационнойБазыРегламентныхЗаданий.ИдентификаторПользователяИБ);
            пИмяАдминистратораИнформационнойБазы = ?(ПользовательИБ = Неопределено, "", СокрЛП(ПользовательИБ.Имя));
        КонецЕсли;
        //Пароль Администратора Информационной Базы
        пПарольАдминистратораИнформационнойБазы = СокрЛП(Константы.abtПарольПользователяИнформационнойБазыРегламентныхЗаданий.Получить());
    Исключение
        Успех = Ложь;
    КонецПопытки;

    //Дополнительная проверка параметров для соединения к кластеру администрирования
    Если Успех Тогда
        Если пИмяАдминистратораКластера = "" Тогда
            Успех = Ложь;
        КонецЕсли;
        Если пПарольАдминистратораКластера = "" Тогда
            Успех = Ложь;
        КонецЕсли;
        Если пИмяАдминистратораИнформационнойБазы = "" Тогда
            Успех = Ложь;
        КонецЕсли;
        Если пПарольАдминистратораИнформационнойБазы = "" Тогда
            Успех = Ложь;
        КонецЕсли;
    КонецЕсли;

    Если Успех Тогда
        СтрокаСоединенияИБ = СтрокаСоединенияИнформационнойБазы(); //"File="/home/юзер/1cBases/Конфа";"  или "Srvr="1c.Сервак.ru";Ref="Конфа";"
        ЭтоСервернаяБаза = Истина;
        Если СтрНайти(СтрокаСоединенияИБ, "File=") > 0 Тогда
            ЭтоСервернаяБаза = Ложь; //ФайловаяБаза
        Иначе
            МассивПараметровСоединенияИБ = РазложитьСтрокуНаПодстроки(СтрокаСоединенияИБ, ";");
            //СерверИБ =
            //пАдресСервераАдминистрирования =
            Для Каждого СтрМассиваСоединенияИБ Из МассивПараметровСоединенияИБ Цикл
                Если СтрНайти(СтрМассиваСоединенияИБ, "Srvr=") > 0 Тогда
                    пАдресСервераАдминистрирования = СтрЗаменить(СтрМассиваСоединенияИБ, "Srvr=", "");
                    пАдресСервераАдминистрирования = СтрЗаменить(пАдресСервераАдминистрирования, """", "");
                ИначеЕсли СтрНайти(СтрМассиваСоединенияИБ, "Ref=") > 0 Тогда
                    пИмяИнформационнойБазыВКластере = СтрЗаменить(СтрМассиваСоединенияИБ, "Ref=", "");
                    пИмяИнформационнойБазыВКластере = СтрЗаменить(пИмяИнформационнойБазыВКластере, """", "");
                КонецЕсли;
            КонецЦикла;
        КонецЕсли;

        Если ЭтоСервернаяБаза Тогда

            //массив запущенных клиентов по которым будем отключать
            КлиентскиеПриложения = Новый Массив;
            КлиентскиеПриложения.Добавить(ВРег("1CV8")); //толстый клиент
            КлиентскиеПриложения.Добавить(ВРег("1CV8C")); //тонкий клиент
            КлиентскиеПриложения.Добавить(ВРег("WebClient")); //web-клиент
            КлиентскиеПриложения.Добавить(ВРег("COMConnection")); //внешнее соединение 1С:Предприятия через COM
            КлиентскиеПриложения.Добавить(ВРег("WSConnection")); //web-сервис
            //КлиентскиеПриложения.Добавить(ВРег("BackgroundJob")); //обработк заданий
            //КлиентскиеПриложения.Добавить(ВРег("SrvrConsole")); //консоль кластера
            //КлиентскиеПриложения.Добавить(ВРег("COMConsole")); //администрирование сессии внешнего соединения
            //КлиентскиеПриложения.Добавить(ВРег("JobScheduler")); //планировщик заданий
            //КлиентскиеПриложения.Добавить(ВРег("Designer")); //конфигуратор / отладка

            СеансыИнформационнойБазы = ПолучитьСеансыИнформационнойБазы();
            НомераСеансов = Новый Массив;
            стСписокКРасстрелу = "";
            Для Каждого СеансИБ Из СеансыИнформационнойБазы Цикл
                Если КлиентскиеПриложения.Найти(ВРег(СеансИБ.ИмяПриложения)) <> Неопределено Тогда
                    Если СеансИБ.НачалоСеанса < ДатаУбийства Тогда
                        Если СеансИБ.Пользователь.Имя <> пИмяАдминистратораИнформационнойБазы Тогда
                            НомераСеансов.Добавить(СеансИБ.НомерСеанса);
                            стСписокКРасстрелу = стСписокКРасстрелу + Строка(СеансИБ.Пользователь.Имя) + " ";
                        КонецЕсли;
                    КонецЕсли;
                КонецЕсли;
            КонецЦикла;

            ОбщегоНазначенияКлиентСервер.СообщитьПользователю(стСписокКРасстрелу); //сообщение пользователю

            Если НомераСеансов.Количество() > 0 Тогда

                //Для COM
                //ПараметрыАдминистрирования = Новый Структура();
                //ПараметрыАдминистрирования.Вставить("ТипПодключения", "COM"); // "COM" или "RAS"
                //ПараметрыАдминистрирования.АдресАгентаСервера = "ххх.ххх.ххх.ххх";
                //ПараметрыАдминистрирования.ПортАгентаСервера = 1540; //по умолчанию в 1С используется 1540
                //ПараметрыАдминистрирования.ПортКластера = 1541; //по умолчанию в 1С используется 1541
                //Для RAS
                ПараметрыАдминистрирования = Новый Структура();
                ПараметрыАдминистрирования.Вставить("ТипПодключения", "RAS"); // "COM" или "RAS"
                ПараметрыАдминистрирования.Вставить("АдресСервераАдминистрирования", пАдресСервераАдминистрирования);
                ПараметрыАдминистрирования.Вставить("ПортСервераАдминистрирования", Число(пПортСервераАдминистрирования));
                //общее
                ПараметрыАдминистрирования.Вставить("ПортКластера", Число(пПортКластера)); //по умолчанию в 1С используется 1541
                ПараметрыАдминистрирования.Вставить("ИмяАдминистратораКластера", пИмяАдминистратораКластера); //Если нет в кластере "Администратора", то нужно создать
                ПараметрыАдминистрирования.Вставить("ПарольАдминистратораКластера", пПарольАдминистратораКластера);


                ПараметрыАдминистрированияИБ = АдминистрированиеКластераКлиентСервер.ПараметрыАдминистрированияИнформационнойБазыКластера();
                ПараметрыАдминистрированияИБ.ИмяВКластере = пИмяИнформационнойБазыВКластере;
                ПараметрыАдминистрированияИБ.ИмяАдминистратораИнформационнойБазы = пИмяАдминистратораИнформационнойБазы;
                ПараметрыАдминистрированияИБ.ПарольАдминистратораИнформационнойБазы = пПарольАдминистратораИнформационнойБазы;

                СтруктураСеанса = Новый Структура;
                СтруктураСеанса.Вставить("Свойство", "Номер");
                СтруктураСеанса.Вставить("ВидСравнения", ВидСравнения.ВСписке);
                СтруктураСеанса.Вставить("Значение", НомераСеансов);
                Фильтр = ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(СтруктураСеанса);

                АдминистрированиеКластераКлиентСервер.УдалитьСеансыИнформационнойБазы(ПараметрыАдминистрирования, ПараметрыАдминистрированияИБ, Фильтр);
                //АдминистрированиеКластераRASКлиентСервер.УдалитьСеансыИнформационнойБазы(ПараметрыАдминистрирования, ПараметрыАдминистрированияИБ, Фильтр); //для Linux

                ЗаписьЖурналаРегистрации("УдалениеПользователейВНочи", УровеньЖурналаРегистрации.Информация, , , "Список пользователей к отключению: " + стСписокКРасстрелу);

            КонецЕсли;
        КонецЕсли;
    КонецЕсли;

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