AllPrivilegies: Integer;
The AllPrivilegies property returns the total number of privileges of this user.
Sub Main;
Var
MB: IMetabase;
LoS: ILogonSession;
Mu: IMetabaseUser;
SPUD: ISecurityPackageUserData;
i: integer;
Begin
MB:=MetabaseClass.Active;
LoS:=MB.LogonSession;
Mu:=Los.User;
SPUD:=Mu.PackageData;
i:=SPUD.AllPrivilegies;
End Sub Main;
After executing the example the "i" variable stores the overall number of privileges of this user.
See also: