RevertToStandardMode;
RevertToStandardMode;
The RevertToStandardMode method disables the mode of distributing roles between information security administrator and application administrator.
To execute the example, add links to the Metabase, ForeSystem (for the Fore.NET example) system assemblies.
Sub UserProc;
Var
MB: IMetabase;
MS: IMetabaseSecurity;
Policy: IMetabasePolicy;
Lic: Object;
Begin
MB := MetabaseClass.Active;
// Check out license to work with security manager
Lic := MB.RequestLicense(UiLicenseFeatureType.Adm);
MS := MB.Security;
Policy := MS.Policy;
// Disable the administrator role distribution mode
Policy.RevertToStandardMode;
// Save changes
MS.Apply;
// Check in license
Lic := Null;
End Sub UserProc;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.ForeSystem;
…
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
MS: IMetabaseSecurity;
Policy: IMetabasePolicy;
Lic: Object;
Begin
MB := Params.Metabase;
// Check out license to work with security manager
Lic := MB.RequestLicense(UiLicenseFeatureType.lftAdm);
MS := MB.Security;
Policy := Policy;
// Disable the administrator role distribution mode
Policy.RevertToStandardMode;
// Save changes
MS.Apply();
// Check in license
Lic := Null;
End Sub;
After executing this example the mode of distributing roles between information security administrator and applied administrator is disabled. Application administrator will perform all functions.
See also: