AllStations: IStations;
Свойство AllStations возвращает коллекцию рабочих станций, имеющихся в сети, в которой осуществляется работа с платформой.
Sub Main;
Var
MB: IMetabase;
MS: IMetabaseSecurity;
Stat: IStations;
St: IStation;
Begin
MB := MetabaseClass.Active;
MS := MB.Security;
Stat := MS.AllStations;
Stat.Refresh;
For Each St In Stat Do
Debug.WriteLine(St.Name + " " + St.FullName);
End For;
End Sub Main;
После выполнения примера в консоль среды разработки будут выведены наименования и полные наименования рабочих станций, входящих в сеть. Для этих станций в дальнейшем можно ограничить доступ полностью, либо для определенных пользователей.
См. также: