Attributes: IABACAttributeInstances;
Свойство Attributes возвращает системные и пользовательские атрибуты пользователей.
Свойство доступно только для чтения.
Для работы с коллекцией атрибутов пользователей используйте свойство IMetabaseUsers.Attributes.
Для выполнения примера добавьте ссылки на системные сборки: ABAC, Metabase.
Sub UserProc;
Var
MB: IMetabase;
User: IMetabaseUser;
Users: IMetabaseUsers;
Attr: IABACAttributeInstance;
i, Count: Integer;
Begin
MB := MetabaseClass.Active;
Users := MB.Security.Users;
User := Users.Item(0);
Count := User.Attributes.Count;
For i := 0 To Count-1 Do
Attr := User.Attributes.Item(i);
Debug.WriteLine(Attr.Name(MB.CurrentLocale));
End For;
End Sub UserProc;
В результате выполнения примера в консоль будут выведены наименования всех системных и пользовательских атрибутов пользователей.
См. также: