IMetabaseUser.Stations

Syntax

Stations: IStations;

Stations: Prognoz.Platform.Interop.Metabase.IStations;

Description

The Stations property returns the collection containing the list of workstations, from which user access is granted.

Example

To execute the example, make sure that security manager contains the USER user.

Add links to the Metabase, ForeSystem (for the Fore.NET example) system assemblies.

Sub UserProc;
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    User: IMetabaseUser;
    DM: IDomain;
    Lic: Object;
Begin
    MB := MetabaseClass.Active;
    // Get license to work with security manager
    Lic := MB.RequestLicense(UiLicenseFeatureType.Adm);
    MS := MB.Security;
    // Set allowed workstation
    User := MS.ResolveName("USER") As IMetabaseUser;
    DM := User.Stations.Domains.Add("GROUP");
    DM.Stations.Add("1C");
    // 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;
    User: IMetabaseUser;
    DM: IDomain;
    Lic: Object;
Begin
    MB := Params.Metabase;
    // Get license to work with security manager
    Lic := MB.RequestLicense(UiLicenseFeatureType.lftAdm);
    MS := MB.Security;
    // Set allowed workstation
    User := MS.ResolveName("USER") As IMetabaseUser;
    DM := User.Stations.Domains.Add("GROUP");
    DM.Stations.Add("1C");
    // Save changes
    MS.Apply();
    // Check in license
    Lic := Null;
End Sub;

After executing the example, the USER user is allowed to access only from the 1C workstation located in the GROUP domain. By default the user is allowed to access the system from any working stations, IP and MAC addresses.

See also:

IMetabaseUser