AuditPolicy: IMetabaseAuditPolicy;
Свойство AuditPolicy возвращает объект, содержащий в себе политику доступа к объектам и учета действий над ними.
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;
После выполнения примера в переменной «i» будет содержаться значение, в соответствии с которым осуществляется аудит доступа к папкам. Если ведется аудит полного доступа то FilterClass вернет «-1».
См. также: