Каталог решений - Ограничение по количеству сессий пользователей

У нас возникла проблема с некоторыми терминальными серверами (старенькими), пользователи формируя отчет (если отчет формируется долго), открывают еще одну сессию, и работают в ней, и так много раз. А памяти 1с к сожалению отъедает дай боже. Вот и пришлось сделать такие изменения:

В модуле приложения ПриНачалеРаботыСистемы добавил вызов такой процедуры:

Процедура ПроверкаВозможностиОткрытияЕщеОднойСессии(Пользователь)
    #Если Клиент Тогда
        Если Не РольДоступна(«ПолныеПрава») Тогда
            ИтогСписокСоединений = Новый ТаблицаЗначений;
            ИтогСписокСоединений.Колонки.Добавить(«Пользователь»);
            ИтогСписокСоединений.Колонки.Добавить(«КоличествоСоединений»);

            СоединенияИнформационнойБазы = ПолучитьСоединенияИнформационнойБазы();

            Для Каждого Соединение Из СоединенияИнформационнойБазы Цикл

                ТЗ=ИтогСписокСоединений.Добавить();
                ТЗ.Пользователь=СокрЛП(Соединение.Пользователь.Имя);
                ТЗ.КоличествоСоединений = 1;

            КонецЦикла;
            Отбор=Новый Структура(«Пользователь»,СокрЛП(Пользователь.Код));
            ОтборПользователя=Новый Структура(«Пользователь»,Пользователь);
            Нашли=ИтогСписокСоединений.НайтиСтроки(Отбор);
            //Получим сколько соединений разрешено
            КоличествоРазрешенных=РегистрыСведений.КоличествоСессийПользователя.СрезПоследних(,ОтборПользователя);
            Если КоличествоРазрешенных.Количество()=0 Тогда
                КоличествоРазрешенныхСессий=1;
            Иначе
                КоличествоРазрешенныхСессий=КоличествоРазрешенных.Получить(0).КоличествоДополнительныхСессий+1;
            КонецЕсли;
            //Проверим, а вдруг это ADM входит
            сеть = новый ComОбъект(«wscript.network»);
            ПользовательОС=«\\»+сеть.UserDomain+«\»+сеть.UserName;
            Если ВРег(Соединение.Пользователь.ПользовательОС)=ВРег(ПользовательОС) Тогда
                //Проверим а есть ли разрешенные сессии
                Если Нашли.Количество()>КоличествоРазрешенныхСессий Тогда
                    Предупреждение(«Превышено количество разрешенных сессий.»,5,«Система ограничений»);
                    ЗавершитьРаботуСистемы(Ложь, Ложь);
                    Возврат;
                КонецЕсли;
            КонецЕсли;
            нНомерТекущегоСоединения=НомерСоединенияИнформационнойБазы();
        КонецЕсли;
    #КонецЕсли
КонецПроцедуры

Регистр простейший Пользователь/КоличествоДополнительныхСессий периодический

P.S. Если есть АД то в случае Авторизации через ОС еще полезная штука для тестировщиков.