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