Количество пользователей использующих модули iScala

Кто-нибудь знает откуда в iScala2.2 можно SQL запросом с определенной периодичностью (5, 10 минут) получать информацию о количестве пользователей использующих одновременно финансовые и логистические модули? Нужно определить максимальное количество одновременно работающих пользователей в одном модуле.

Заранее благодарен

Edited by kwillsie on 03-March-2004 at 17:59

franks151
Senior Member
Joined: 02-February-2004
Location: United States
Online Status: Offline
Posts: 63 Posted: 04-March-2004 at 17:12 | IP Logged
———————————————————————————
I ran a SQL Profiler trace to see what tables the Admin Console was reading from when populating the Activities node. It appears they are doing something sneaky, because the Profiler trace did not show any database activity when I refreshed the Activity node. I will do some more research to see if I can figure out where iScala is reading this information from (or perhaps Sergey Mikhno would be kind enough to share that information with us).
__________________
Dustin Franks
Leggett & Platt, Inc.
Back to Top

smikhno
Scala Customer Support
Joined: 03-February-2004
Location: Sweden
Online Status: Offline
Posts: 17 Posted: 08-May-2004 at 20:04 | IP Logged
———————————————————————————
Public Sub ViewCurrentUsers()

Dim objLogonServer As ScaLogonSrv.SysLogon
Dim objAppLogon As ScaAppLogon.ScaLogon
Dim objUserContext As ScaAppLogon.ScaUserContext
Dim objLogonAdmin As ScaLogonSrv.Admin
Dim bX As Boolean
Dim vLogonId As Variant
Dim objUserList As Recordset
Dim S As String, I As Integer

On Error GoTo Err

Set objLogonAdmin = CreateObject("ScaLogonSrv.Admin", _
ThisProcess.UserContext.SystemServiceServer("Logon"))
Set objLogonServer = ThisProcess.UserContext.SystemService("Logon")
Set objAppLogon = objLogonServer.GetAppLogon("SCAL6INTREL", _
ThisProcess.UserContext.LogonID)
Set objUserList = objLogonAdmin.GetUserList("SCAL6INTREL", _
ThisProcess.UserContext.LogonID)

S = ""
I = 0

objUserList.MoveFirst
Do While Not objUserList.EOF
vLogonId = objUserList.Fields.Item("LogonID").Value
Set objUserContext = objAppLogon.GetExtension(vLogonId, setUserContext)
S = S & objUserContext.UserFullName
If objUserContext.IsExclusiveLogon Then
S = S & " — logged on exclusively"
End If
S = S & vbCrLf
I = I + 1
objUserList.MoveNext
Loop

ThisProcess.ScaMessageBox I & " users currently logged on", S, vbOKOnly + vbInformation
GoTo ReleaseAll

Err:
ThisProcess.ScaMessageBox Err.Description

ReleaseAll:
Set objLogonAdmin = Nothing
Set objLogonServer = Nothing
Set objAppLogon = Nothing
Set objUserList = Nothing
Set objUserContext = Nothing

End Sub

smikhno
Scala Customer Support
Joined: 03-February-2004
Location: Sweden
Online Status: Offline
Posts: 17 Posted: 08-May-2004 at 20:09 | IP Logged
———————————————————————————
This is the example in VBA
Public Sub ViewCurrentUsers()

Dim objLogonServer As ScaLogonSrv.SysLogon
Dim objAppLogon As ScaAppLogon.ScaLogon
Dim objUserContext As ScaAppLogon.ScaUserContext
Dim objLogonAdmin As ScaLogonSrv.Admin
Dim bX As Boolean
Dim vLogonId As Variant
Dim objUserList As Recordset
Dim S As String, I As Integer

On Error GoTo Err

Set objLogonAdmin = CreateObject("ScaLogonSrv.Admin", _
ThisProcess.UserContext.SystemServiceServer("Logon"))
Set objLogonServer = ThisProcess.UserContext.SystemService("Logon")
Set objAppLogon = objLogonServer.GetAppLogon("SCAL6INTREL", _
ThisProcess.UserContext.LogonID)
Set objUserList = objLogonAdmin.GetUserList("SCAL6INTREL", _
ThisProcess.UserContext.LogonID)

S = ""
I = 0

objUserList.MoveFirst
Do While Not objUserList.EOF
vLogonId = objUserList.Fields.Item("LogonID").Value
Set objUserContext = objAppLogon.GetExtension(vLogonId, setUserContext)
S = S & objUserContext.UserFullName
If objUserContext.IsExclusiveLogon Then
S = S & " — logged on exclusively"
End If
S = S & vbCrLf
I = I + 1
objUserList.MoveNext
Loop

ThisProcess.ScaMessageBox I & " users currently logged on", S, vbOKOnly + vbInformation
GoTo ReleaseAll

Err:
ThisProcess.ScaMessageBox Err.Description

ReleaseAll:
Set objLogonAdmin = Nothing
Set objLogonServer = Nothing
Set objAppLogon = Nothing
Set objUserList = Nothing
Set objUserContext = Nothing

End Sub

franks151
Senior Member
Joined: 02-February-2004
Location: United States
Online Status: Offline
Posts: 63 Posted: 11-May-2004 at 14:55 | IP Logged
———————————————————————————
Thank you Sergey. This will prove to be useful.
_________________
Dustin Franks
Leggett & Platt, Inc.

А я в свое время решила проблему совершенно «не спортивно», зато очень быстро: выгружаю из Скальского администратора>Активность список пользователей и что они делают в текстовый файл, а потом этот текстовый файл анализирую в простеньком отчетике. Не совсем удобно, прямо скажем, но мне запускать отчет требуется редко.

Кстати, скрипт с приведенным выше VBA описан в мануале к 2.2.