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