UserDbName: String;
Свойство UserDbName возвращает наименование пользователя СУБД, который подключен к репозиторию.
Sub Main;
Var
MB: IMetabase;
Users: IConnectedUsersInfo;
User: IConnectedUserInfo;
Begin
MB := MetabaseClass.Active;
Users := MB.GetConnectedUsers;
For Each User In Users Do
Debug.WriteLine("Станция: " + User.HostName + "; MAC-адрес: " + User.NETAddress);
Debug.WriteLine("Пользователь СУБД: " + User.UserDbName + "; Пользователь ОС: " + User.UserOsName);
End For;
End Sub Main;
После выполнения примера в консоль среды разработки будет выведена информация по всем пользователям, подключенным к текущему репозиторию.
См. также: