Contar la cantidad de usuarios logueados en una máquina

Este script es muy útil para validar la cantidad de usuarios que estan logueados en un momento dado sobre un servidor.

Ayuda mucho cuando necesitamso saber la cantidad de usuarios que un servidor de Terminal Server nos esta soportando.

'-------------------- ITPROSBOGOTACOLOMBIA ----------------------
'------------------- EL CHANGO PROGRAMADOR ---------------------
'------------------- CONTAR USUARIO LOGUEADOS ---------------------
strComputer = "."
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSessions = objWMI.ExecQuery ("Select * from Win32_LogonSession Where LogonType = 10")
If colSessions.Count = 0 Then
Wscript.Echo "No interactive users found"
Else
i=0
For Each objSession in colSessions
Set colList = objWMI.ExecQuery("Associators of " & "{Win32_LogonSession.LogonId=" & objSession.LogonId & "} " & _
"Where AssocClass=Win32_LoggedOnUser Role=Dependent" )
For Each objItem in colList
i=i+1
Next
Next
End If
Wscript.Echo "Usuarios Logueados: "&i