IMetabaseSecurity.AllStations

Синтаксис

AllStations: IStations;

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

Описание

Свойство AllStations возвращает коллекцию рабочих станций, имеющихся в сети, в которой осуществляется работа с платформой.

Пример

Для выполнения примера добавьте ссылку на системную сборку Metabase.

Sub UserProc;
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    Stat: IStations;
    St: IStation;
Begin
    MB := MetabaseClass.Active;
    MS := MB.Security;
    // Получим список рабочих станций
    Stat := MS.AllStations;
    Stat.Refresh;
    Debug.WriteLine("Список рабочих станций: ");
    For Each St In Stat Do
        Debug.WriteLine(St.Name + " " + St.FullName);
    End For;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Metabase;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    Stat: IStations;
    St: IStation;
Begin
    MB := Params.Metabase;
    MS := MB.Security;
    // Получим список рабочих станций
    Stat := MS.AllStations;
    Stat.Refresh();
    System.Diagnostics.Debug.WriteLine("Список рабочих станций: ");
    For Each St In Stat Do
        System.Diagnostics.Debug.WriteLine(St.Name + " " + St.FullName);
    End For;
End Sub;

После выполнения примера в консоль будет выведен список всех рабочих станций, входящих в сеть. Для этих станций в дальнейшем можно ограничить доступ полностью или частично для конкретных пользователей.

См. также:

IMetabaseSecurity