Ком- коннектор, активные пользователи

[AndyD]

А вот так для VBA

Dim cont As Object
Dim cont1 As Object
Dim cont2 As Object
Dim ax As Object
Dim i As Integer

Set ax = CreateObject("AxaptaCOMConnector.Axapta2")

ax.Logon2 "user", "password", "", "", "", "", "config"

Set cont = ax.CallStaticClassMethod("SysUsersOnline", "getAllOnlineUserInfo")
Debug.Print "Кол-во пользователей:"; cont.peek(2)
Set cont1 = cont.peek(1)
For i = 1 To cont1.Length()
    Set cont2 = cont1.peek(i)
    Debug.Print "UserID="; cont2.peek(2)
    Debug.Print "UserName="; cont2.peek(8)
Next i

ax.Logoff
Set ax = Nothing