IStation.Included

Синтаксис

Included: Boolean;

Описание

Свойство Included определяет, будет ли использоваться рабочая станция.

Пример

Для выполнения примера предполагается наличие формы и расположенной на ней кнопкой с наименованием "Button1". В менеджере безопасности создан пользователь с наименованием "USER_1".

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

Var

MB: IMetabase;

Sec: IMetabaseSecurity;

User: IMetabaseUser;

Dms: IDomains;

Dm: IDomain;

Sts: IStations;

St: IStation;

Begin

MB := MetabaseClass.Active;

Sec := MB.Security;

User := Sec.ResolveName("USER_1") As IMetabaseUser;

Sts := User.Stations;

Dms := Sts.Domains;

Dm := Dms.Add("PROGNOZ");

Dms.Refresh;

Sts := Dm.Stations;

Sts.Refresh;

St := Sts.FindByName("TEST_PC");

St.Included := True;

Sec.Apply;

End Sub Button1OnClick;

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

См. также:

IStation