FindByName(Name: String): IStation;
Name - наименование рабочей станции.
Метод FindByName возвращает рабочую станцию из коллекции по заданному наименованию.
Метод возвращает значение Null, если рабочая станция с указанным наименованием отсутствует в локальной сети.
Для выполнения предполагается наличие формы с расположенной на ней кнопкой «Button1».
Sub Button1OnClick(Sender: Object; Args: IEventArgs);
Var
MB: IMetabase;
Sec: IMetabaseSecurity;
m_User: IMetabaseUser;
St: IStations;
s: String;
Begin
MB := MetabaseClass.Active;
Sec := MB.Security;
m_User := Sec.ResolveName("ADMIN") As IMetabaseUser;
St := m_User.Stations;
If St.FindByName("1C") <> Null Then
s := "Рабочая станция найдена";
Else
s := "Рабочая станция не найдена";
End If;
End Sub Button1OnClick;
При нажатии на кнопку в коллекции пользователя «ADMIN» будет произведен поиск рабочей станции с наименованием «1C», в переменной «s» будет сохранен результат поиска.
См. также: