IMetabasePolicy.AuditPolicy

Syntax

AuditPolicy: IMetabaseAuditPolicy;

Description

The AuditPolicy property returns an object that contains access policy to objects and events accounting under them.

Example

Sub Main;

Var

MB: IMetabase;

MS: IMetabaseSecurity;

MU: IMetabasePolicy;

AuPol: IMetabaseAuditPolicy;

i: Integer;

Begin

MB:=MetabaseClass.Active;

MS:=MB.Security;

MU:=MS.Policy;

AuPol:=MU.AuditPolicy;

i:=AuPol.FilterClass(MetabaseObjectClass.KE_CLASS_FOLDER);

End Sub Main;

After executing this example the "i" variable contains a value, in accordance with it access audit to folders is performed. If a complete access audit is performed FilterClass returns "-1".

See also:

IMetabasePolicy