IAuditLogons.Session

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

Sub UserProc;
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    AL: IAuditLog;
    ALogon: IAuditLogons;
    Lic: Object;
Begin
    MB := MetabaseClass.Active;
    // Получим лицензию для возможности работы с менеджером безопасности
    Lic := MB.RequestLicense(UiLicenseFeatureType.Adm);
    MS := MB.Security;
    // Откроем протокол доступа
    Al := MS.OpenAuditLog;
    ALogon := AL.OpenLogons(False);
    // Выведем в консоль информацию о сессиях текущего репозитория
    While Not ALogon.Eof Do
        Debug.WriteLine("Сессия: " + ALogon.Session.ToString);
        Debug.WriteLine("Пользователь: " + ALogon.UserName + "; Описание: " + ALogon.UserDescription + "; Sid: " + ALogon.UserSid);
        Debug.WriteLine("Рабочая станция: " + ALogon.Station + "; Пользователь ОС: " + ALogon.UserOS + "; IP: " + ALogon.UserIP);
        ALogon.Next;
    End While;
    // Освободим лицензию
    Lic := Null;
End Sub UserProc;