IMetabase.GetConnectedUsers

Синтаксис

GetConnectedUsers: IConnectedUsersInfo;

Описание

Метод GetConnectedUsers позволяет получить информацию о пользователях, подключенных к репозиторию.

Комментарии

Для пользователя, осуществляющего просмотр или отключение подключенных к репозиторию пользователей, на сервере Oracle должен быть грант Select на представление V_$SESSION. Для СУБД PostgreSQL данный метод не реализован, используйте метод GetConnectedUsersEx.

Пример

Для выполнения примера добавьте ссылку на системную сборку Metabase.

Sub UserProc;
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.UserName + "; Пользователь ОС: " + User.UserOsName);
    End For;
End Sub UserProc;

При выполнении примера в консоль среды разработки будет выведена информация по всем пользователям, подключенным к текущему репозиторию.

См. также:

IMetabase