IMetabaseUser.Stations

Синтаксис

Stations: IStations;

Описание

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

Пример

Для выполнения предполагается наличие формы и расположенной на ней кнопкой с наименованием «Button1».

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);

Var

MB: IMetabase;

Sec: IMetabaseSecurity;

m_User: IMetabaseUser;

dm: IDomain;

Begin

MB := MetabaseClass.Active;

Sec := MB.Security;

m_User := Sec.ResolveName("ADMIN") As IMetabaseUser;

dm := m_User.Stations.Domains.Add("PROGNOZ");

dm.Stations.Add("1C");

Sec.Apply;

End Sub Button1OnClick;

По умолчанию пользователю доступ в систему разрешен с любых рабочих станции, IP и MAC-адресов. При нажатии на кнопку, для пользователя «ADMIN» будет разрешен доступ только с рабочей станции «1C», расположенной в домене «PROGNOZ».

См. также:

IMetabaseUser