IAuditLogons.Session

Синтаксис

Session: Integer;

Описание

Свойство Session возвращает номер сессии.

Пример

Sub Main;

Var

MB: IMetabase;

MS: IMetabaseSecurity;

AL: IAuditLog;

ALogon: IAuditLogons;

Begin

MB := MetabaseClass.Active;

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;

End Sub Main;

После выполнения примера в консоль среды разработки будет выведена информация о сессиях с текущим репозиторием. Будет выведена следующая информация: номер сессии; наименование, описание и SID (идентификатор субъекта безопасности) пользователя, под которым осуществлялось подключение к платформе. А также наименование рабочей станции, наименование пользователя, под которым осуществлен вход в ОС и IP рабочей станции.

См. также:

IAuditLogons