Archive(FileName: String; [Callback: IAuditLogArchiveCallback = Null]; [Format: AuditLogArchiveFormat = 0]; [ClearLog: Boolean = False]);
FileName. Наименование файла;
Callback. Объект, используемый для отслеживания процесса архивации протокола доступа;
Format. Формат файла, в который осуществляется сохранение;
ClearLog. Параметр, определяющий удаление записи из протокола доступа после архивации.
Метод Archive производит архивирование протокола доступа в файл.
Для параметра ClearLog по умолчанию установлено значение False, при этом протокол доступа не очищается. Если установить значение True, то после архивации все записи протокола доступа будут удалены.
Для выполнения примера предполагается наличие файла AuditLog.pplog.
Добавьте ссылку на системную сборку Metabase.
Sub UserProc;
Var
MB: IMetabase;
MS: IMetabaseSecurity;
AL: IAuditLog;
Lic: Object;
Begin
MB := MetabaseClass.Active;
// Получим лицензию для возможности работы с менеджером безопасности
Lic := MB.RequestLicense(UiLicenseFeatureType.Adm);
MS := MB.Security;
// Откроем протокол доступа
Al := MS.OpenAuditLog;
// Сохраним протокол доступа в файл
AL.Archive("C:\AuditLog.pplog");
// Освободим лицензию
Lic := Null;
End Sub UserProc;
После выполнения примера протокол доступа будет сохранен в файл AuditLog.pplog.
См. также: