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