ISecuritySubject.Attributes

Copy example

Sub UserProc;
Var
    Mb: IMetabase;
    MbSec: IMetabaseSecurity;
    User: IMetabaseUser;
    Attrs: IABACAttributeInstances;
    Attr: IABACAttributeInstance;
    AttrValues: Array Of String;
Begin
    Mb := MetabaseClass.Active;
    MbSec := Mb.Security;
    // Get repository administrator attributes
    User := MbSec.Users.Administrator;
    Attrs := User.Attributes;
    // Find attribute with the ACCESS identifier
    Attr := Attrs.FindById("ACCESS");
    Attr.Value := 100;
    // Find attribute with the VALUES identifier
    Attr := Attrs.FindById("VALUES");
    // Create an array with a set of values
    AttrValues := New String[3];
    AttrValues[0] := "A";
    AttrValues[1] := "B";
    AttrValues[2] := "C";
    // Change attribute value
    Attr.Value := AttrValues;
    // Save changes in the security manager
    MB.Security.Apply;
End Sub UserProc;