MaxFailedLogons: Integer;
MaxFailedLogons: System.Int32;
The MaxFailedLogons property determines the number of failed logons, when it is exceeded, the user is blocked.
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;
// Get license to work with security manager
Lic := MB.RequestLicense(UiLicenseFeatureType.Adm);
MS := MB.Security;
Policy := MS.Policy;
// Set the number of failed logons
Policy.MaxFailedLogons := 6;
// 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;
// Get license to work with security manager
Lic := MB.RequestLicense(UiLicenseFeatureType.lftAdm);
MS := MB.Security;
Policy := MS.Policy;
// Set the number of failed logons
Policy.MaxFailedLogons := 6;
// Save changes
MS.Apply();
// Check in license
Lic := Null;
End Sub;
After executing this example number of failed logons is "6". When the specified number of logons is exceeded, the user is blocked.
See also: