А вот так для VBA
X++:
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