IMetabasePolicy.MaxFailedLogons

Syntax

MaxFailedLogons: Integer;

MaxFailedLogons: System.Int32;

Description

The MaxFailedLogons property determines the number of failed logons, when it is exceeded, the user is blocked.

Example

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;
    // 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;
    // Check out 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:

IMetabasePolicy