If you know any VBScript you could do the equivilant of a NetStat and then just count the number of connections that do NOT belong to other Genesys Processes.
I wrote something to track my Network connections to an Avaya switch MAPD cards so I hacked it up for you. It looks on the Server 311Gen01 which is my primary StatServer and tells me who is connected to StatServer on Port 7400. The other Genesys servers are filtered out by IP address.
All it does is print out the PC's attached to that port but it should be a good start for you.
NOTE: You do have to have the Windos OS SNMP component installed under Managment and Monitoring Tools in Windows components.
Let me know if it helps.
Thanks,
Taliaferro
'----------------------------------------------------------
'
' I have 311Gen01 as my Primary Genesys Server so I set it for the strTargetSnmpDevice
' ...(This is really just the hostname of My StatServer used by CCPulse)
'
strTargetSnmpDevice = "311gen01"
Set objWmiLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWmiServices = objWmiLocator.ConnectServer("", "root\snmp\localhost")
Set objWmiNamedValueSet = CreateObject("WbemScripting.SWbemNamedValueSet")
objWmiNamedValueSet.Add "AgentAddress", strTargetSnmpDevice
objWmiNamedValueSet.Add "AgentReadCommunityName", "public"
Set colTcpConnTable = _
objWmiServices.InstancesOf("SNMP_RFC1213_MIB_tcpConnTable", , _
objWmiNamedValueSet)
Set colUdpTable = _
objWmiServices.InstancesOf("SNMP_RFC1213_MIB_udpTable", , _
objWmiNamedValueSet)
For Each objTcpConn In colTcpConnTable
'
' All of My CCPulse Users connect to Port 7400 on my StatServer Server
'
if objTcpConn.tcpConnLocalPort = "7400" then
'
' Now I need to filter out the vald connections by IP Address from my other Genesys
' ...applications like Backup Tserver, Symon GIS and other junk
'
Select Case objTcpConn.tcpConnRemAddress
Case "0.0.0.0"
Case "10.50.16.51"
Case "10.50.16.52"
Case "10.50.16.53"
Case "10.50.16.54"
Case "10.50.16.55"
Case "10.50.16.56"
Case "10.50.16.57"
Case Else
WScript.Echo objTcpConn.tcpConnLocalAddress & ":" & _
objTcpConn.tcpConnLocalPort & " => " & _
objTcpConn.tcpConnRemAddress & ":" & _
objTcpConn.tcpConnRemPort & " " & _
"[State: " & objTcpConn.tcpConnState & "]"
End Select
End if
Next
'----------------------------------------------------------
