IConnectedUserInfoEx.SessionId

Copy example

Sub UserProc;
Var
    MB: IMetabase;
    Users: IConnectedUsersInfoEx;
    User: IConnectedUserInfoEx;
Begin
    // Get repository
    MB := MetabaseClass.Active;
    // Get active users connected to repository
    Users := MB.GetConnectedUsersEx;
    // Display message in the console if connected users are missing
    If Users.Count = 0 Then
        Debug.WriteLine("No connected users");
    Else
        // Display information about each user in the console   
        For Each User In Users Do
            // Display platform user name
            Debug.WriteLine("DBMS user: " + User.UserName);
            // Display OS user name
            Debug.WriteLine("OS user: " + User.UserOsName);
            // Display workstation name
            Debug.WriteLine("Workstation: " + User.HostName);
            // Display network MAC address of computer
            Debug.WriteLine("Network MAC address of computer: " + User.NetAddress);
            // Display user session identifier
            Debug.WriteLine("Session ID: " + User.SessionId);
            Debug.WriteLine("=========================================");
        End For;
    End If; 
End Sub UserProc;