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