код получился такой:
ТекущийПользовательИБ = ПользователиИнформационнойБазы.ТекущийПользователь();
МассивСоединений = ПолучитьСоединенияИнформационнойБазы();
//удаляем строку массива, где значение - этот же пользователь
МассивСоединений.Удалить(МассивСоединений.ВГраница());
//ищем в массиве пользователя с таким же именем. Строку массива где приложение - это конфигуратор, пропускаем
Для Каждого СтрокаМассива Из МассивСоединений Цикл
Если СтрокаМассива.Пользователь.Имя = ТекущийПользовательИБ.Имя И Не СтрокаМассива.ИмяПриложения="Designer" Тогда
Отказ = Истина;
#Если Клиент Тогда
Предупреждение(НСтр("ru='Уже существует соединение с информационной базой пользователем ';uk='Вже існує зєднання з інформаційною базою користувачем '")+ТекущийПользовательИБ.Имя, 10, НСтр("ru='Ошибка доступа';uk='Помилка доступу'"));
#КонецЕсли
Прервать;
КонецЕсли;
КонецЦикла;
поместил в процедуру "ПередНачаломРаботыСистемы" модуля обычного приложения