IDomainStations.Add

Синтаксис

Add(Name: String): IStation;

Параметры

Name - наименование рабочей станции.

Описание

Метод Add добавляет станцию в коллекцию.

Пример

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

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

Var

MB: IMetabase;

Sec: IMetabaseSecurity;

m_User: IMetabaseUser;

DS: IDomainStations;

Begin

MB := MetabaseClass.Active;

Sec := MB.Security;

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

DS := m_User.StationIPs;

DS.Add("10.0.2.158");

Sec.Apply;

End Sub Button1OnClick;

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

См. также:

IDomainStations