IAuditLog.OpenOperations

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

Sub UserProc;
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    AL: IAuditLog;
    ALogs: IAuditLogons;
    AOperat: IAuditOperations;
    s: Array[0..10] Of String;
    i: Integer;
    Lic: Object;
Begin
    MB := MetabaseClass.Active;
    // Получим лицензию для возможности работы с менеджером безопасности
    Lic := MB.RequestLicense(UiLicenseFeatureType.Adm);
    MS := MB.Security;
    // Откроем протокол доступа
    AL := MS.OpenAuditLog;
    // Отключим использование фильтра протокола доступа
    ALogs := AL.OpenLogons(False);
    // Сформируем список операций
    AOperat := AL.OpenOperations(ALogs.Session);
    // Выведем номера текущей сессии в консоль
    Debug.WriteLine("Сессия " + ALogs.Session.ToString + ": ");
    For i := 0 To 9 Do
        s[i] := AOperat.Name;
        Debug.WriteLine(s[i]);
        AOperat.Next;
    End For;
    // Освободим лицензию
    Lic := Null;
End Sub UserProc;