DiscretionaryAccessControl: Boolean;
The DiscretionaryAccessControl property determines whether it is possible to use discretionary access control to objects.
The property is set to True by default, at the same time discretionary access control to objects is used.
There is a possibility to use discretionary control and mandatory access.
Use the SecurityDescriptor property to set access permissions.
Sub Main;
Var
MB: IMetabase;
MS: IMetabaseSecurity;
MU: IMetabasePolicy;
s: String;
Begin
MB:=MetabaseClass.Active;
MS:=MB.Security;
MU:=MS.Policy;
If MU.DiscretionaryAccessControl Then
s:="Yes";
Else
s:="No";
End If;
End Sub Main;
After executing this example the "s" variable contains "Yes" if discretionary access control is assigned.
See also: