IMetabase.GetConnectedUsers

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

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

Пример

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

Fore Fore.NET

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

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Users: IConnectedUsersInfo;
    User: IConnectedUserInfo;
Begin
    MB := Params.Metabase;
    Users := MB.GetConnectedUsers();
    For Each User In Users Do
        System.Diagnostics.Debug.WriteLine("Станция: " + User.HostName + "; MAC-адрес: " + User.NETAddress);
        System.Diagnostics.Debug.WriteLine("Пользователь СУБД: " + User.UserOsName + "; Пользователь ОС: " +
        User.UserOsName);
    End For;
End Sub;

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

IMetabase.GetConnectedUsers

Синтаксис

Описание

Пример