ISecurityPackageUserData.HasPrivilege

Синтаксис

HasPrivilege(Priv: SecurityPackageUserPrivilege): Boolean;

Параметры

Priv — тип привилегии.

Описание

Свойство HasPrivilege определяет обладает ли пользователь привилегией, тип которой передается посредством параметра Priv.

Пример

Sub Main;

Var

MB: IMetabase;

LoS: ILogonSession;

Mu: IMetabaseUser;

SPUD: ISecurityPackageUserData;

Cr: ICredentials;

s: String;

Begin

MB:=MetabaseClass.Active;

LoS:=MB.LogonSession;

Mu:=Los.User;

SPUD:=Mu.PackageData;

If SPUD.HasPrivilege(SecurityPackageUserPrivilege.ClearJournal) Then

s:="Yes";

Else

s:="No";

End If;

End Sub Main;

После выполнения примера в переменной «s» будет «Yes», если текущий пользователь обладает привилегией очистки протокола доступа.

См. также:

ISecurityPackageUserData