Listar usuarios conectados

[freesoftwarrior]

Buenos días:
Tengo un pequeño vacío de conocimiento. Necesito crear un listado de los usuarios activos. Para ello he usado este script en el global.asa

<script language="VBScript" RUNAT="Server">
Sub Application_OnStart
Application("ActiveUsers") = 0
End Sub

Sub Session_OnStart
Session.Timeout = 20
Session("Start") = Now
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1
Application.UnLock
End Sub

Sub Session_OnEnd
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub
</script>

y por supuesto lo invoco con un simple

<%= Application("ActiveUsers") %>

Pero esto sólo me muestra la cantidad, no me permite realizar un listado. Se que con la propiedad Session.SessionID puedo obtener el ID único de cada sesión, pero ¿cómo puedo hacer para que me muestre los ID de todas las sesiones activas?. No he podido encontrar una propiedad del objeto session que me permita hacer eso, al menos no hasta ahora.

Muchas gracias por el apoyo.

Un saludo desde Lima, Perú

[Javier01]

Buenas tardes:

Bueno creo que podrías resolverlo así:

En la función Application_OnStart colocamos el codigo:

Código ASP:

Sub Application_OnStart
  Dim aListaAux()
  Redim aListaAux(0)
  Application("ListaUsuarios") = aListaAux
End Sub
 

En la función Session_OnStart:

Código ASP:

Sub Session_OnStart
    aLista = Application("ListaUsuarios")
    aLista(ubound(aLista))= Session.SessionID
    Redim Preserve aLista(ubound(aLista) +1)
    Application("ListaUsuarios") = aLista
End Sub
 

y luego en alguna página asp:

Código ASP:

if IsArray(Application("ListaUsuarios")) then
      aListaUsuarios = Application("ListaUsuarios")
      for i = 0 to UBound(aListaUsuarios)
          Response.Write(aListaUsuarios(i) & "<BR>")
      Next
   Else
      Response.Write("Application('aListaUsuarios') no es una matriz! <BR>")
   end if
 

Aunque falta la parte donde se elimina la sesión.
Esto se podría hacer en la función Sub Session_OnEnd
Recorriendo el array y buscando la sesión a eliminar.

Saludos!

[freesoftwarrior]

Muchas gracias. Funcionó de mil maravillas. Ahora sólo me queda ver como elimino las sesiones cerradas.