Domains: IDomains;
Свойство Domains возвращает домены, к которым относятся рабочие станции из коллекции.
Свойство доступно только для чтения.
Для выполнения предполагается наличие формы с расположенной на ней кнопкой «Button1».
Sub Button1OnClick(Sender: Object; Args: IEventArgs);
Var
MB: IMetabase;
Sec: IMetabaseSecurity;
m_User: IMetabaseUser;
St: IStations;
s: Integer;
Begin
MB := MetabaseClass.Active;
Sec := MB.Security;
m_User := Sec.ResolveName("ADMIN") As IMetabaseUser;
St := m_User.Stations;
s := St.Domains.Count;
End Sub Button1OnClick;
При нажатии на кнопку в переменной «s» будет храниться число, определяющее количество доменов, к которым относятся рабочие станции в коллекции пользователя «ADMIN».
См. также: