[cisco-voip] uccx 7 csq stats upgrading to uccx8 soon

[Michael Muscat]

Hi,

I have a simple VBS script that is in an .ASP page in IIS that is also used as the idle URL for all of our call center agents phones.  This script shows the agents how many people are ready, in the queue, calls handled...among others.  I am currently using UCCX7 but need to upgrade to UCCX8 in order to have CAD support for Windows 7 when we begin our Migration this summer.  I am wondering if anyone knows how to script these stats in UCCX8 since it's Linux and IBM databases now.  I am hoping to just be able to tweak a few things without having to rewrite everything and I don't want to purchase a 3rd party product.  I have a systemDSN setup on the windows server and below is the script that I have created to connect to the database.  Any help would be appreciated since I am not at all familiar with UCCX8.


Thanks,


Michael Muscat
Network Systems Analyst
UMCU
michaelm at umcu.org<mailto:michaelm at umcu.org>




<%Language = VBScript%>
<%
Dim objConnection
Dim objRecordSet
Dim sQueryString
Dim dDate

' Queue stats
Set objConnection = server.createobject("ADODB.Connection")
Set objCSQRecordset = server.createObject("ADODB.Recordset")
Set objICDStatsRecordset = server.createObject("ADODB.Recordset")
Set objBS = server.createObject("ADODB.Recordset")

objConnection.Open "Driver={SQL Server};Server=localhost\CRSSQL;Database=db_cra;DSN=test"


sQueryString = "SELECT callsWaiting, convOldestContact FROM RtCSQsSummary WHERE CSQName = 'UMCU_MSPC_CSQ' ORDER BY CSQName"
objCSQRecordset.Open sQueryString, objConnection

Response.AddHeader "Refresh", "10; url=http://192.168.128.13/MSPC/callsInQueueICD.asp"
Response.ContentType = "text/xml"
Response.Buffer = true

Response.Write "<CiscoIPPhoneText>"
Response.Write "<Title>UMCU MSPC Real-Time Stats</Title>"
Response.Write "<Text>"

Response.Write "Calls In Queue: " & objCSQRecordset.Fields.Item(0).Value
If objCSQRecordset.Fields.Item(0).Value > 0 Then
                Response.Write "  :  " & objCSQRecordset.Fields.Item(1).Value & vbCrLf
Else
                Response.Write vbCrLf
End If


objCSQRecordset.Close

sQueryString = "SELECT availableAgents, workingAgents, callsHandled, callsAbandoned ,loggedInAgents, " & _
    "convavgWaitDuration, convlongestWaitDuration FROM RtCSQsSummary WHERE CSQName = 'UMCU_MSPC_CSQ'"
objICDStatsRecordset.Open sQueryString, objConnection
Response.Write "Logged In: " & objICDStatsRecordset.Fields.Item(4).Value
Response.Write "  Ready: " & objICDStatsRecordset.Fields.Item(0).Value
Response.Write "  Work: " & objICDStatsRecordset.Fields.Item(1).Value & vbCrLf
Response.Write "Handled:  " & objICDStatsRecordset.Fields.Item(2).Value
Response.Write "  Abandoned:  " & objICDStatsRecordset.Fields.Item(3).Value & vbCrLf
Response.Write "Avg Wait:  " & objICDStatsRecordset.Fields.Item(5).Value &vbCrLf
Response.Write "Longest Wait: " & objICDStatsRecordset.Fields.Item(6).Value & vbCrLf
Response.Write "</Text>"
Response.Write "</CiscoIPPhoneText>"
objICDStatsRecordset.Close

Response.Flush
Response.End

objConnection.Close


%>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://puck.nether.net/pipermail/cisco-voip/attachments/20110311/17f6df6f/attachment.html>