IConnectedUserInfoEx.SessionId

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    Users: IConnectedUsersInfoEx;
    User: IConnectedUserInfoEx;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим активных пользователей, подключённых к репозиторию
    Users := MB.GetConnectedUsersEx;
    // Выведем в консоль сообщение, если подключённых пользователей нет
    If Users.Count = 0 Then
        Debug.WriteLine("Нет подключенных пользователей");
    Else
        // Выведем в консоль информацию о каждом пользователе   
        For Each User In Users Do
            // Выведем наименование пользователя платформы
            Debug.WriteLine("Пользователь СУБД: " + User.UserName);
            // Выведем наименование пользователя ОС
            Debug.WriteLine("Пользователь ОС: " + User.UserOsName);
            // Выведем наименование рабочей станции
            Debug.WriteLine("Рабочая станция: " + User.HostName);
            // Выведем сетевой МАС-адрес компьютера
            Debug.WriteLine("Сетевой МАС-адрес компьютера: " + User.NetAddress);
            // Выведем идентификатор сессии пользователя
            Debug.WriteLine("ID сессии: " + User.SessionId);
            Debug.WriteLine("=========================================");
        End For;
    End If; 
End Sub UserProc;