Using Windows Scheduled Tasks to run script every 5 minutes and exporting results. This is causing numerous Server and Report Engine tasks to be opened and not closing in the Windows Task Manager.
If I go to log into CMS Supervisor, says I'm already logged in until I close out all the Server and Report Engine instances in Windows Task Manager.
I set up Windows Scheduler to stop the task if it's still running when it goes to launch, but that didn't help.
Any help would be greatly appreciated.
Here's the script for CMS:
'LANGUAGE=ENU
'SERVERNAME=XXXXXXXXX
Public Sub Main()
'## cvs_cmd_begin
'## ID = 2001
'## Description = "Report: Real-Time: Designer: Agent Skill Report: Export Data"
'## Parameters.Add "Report: Real-Time: Designer: Agent Skill Report: Export Data","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "2","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Real-Time\Designer\Agent Skill Report","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "3097","_Top"
'## Parameters.Add "50","_Left"
'## Parameters.Add "20900","_Width"
'## Parameters.Add "9555","_Height"
'## Parameters.Add "The report Real-Time\Designer\Agent Skill Report was not found on ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "1-999","Splits/Skills"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "C:\Documents and Settings\XXXXX\Desktop\export_agent-loginID.txt","_Output"
'## Parameters.Add "9","_FldSep"
'## Parameters.Add "0","_TextDelim"
'## Parameters.Add "False","_NullToZero"
'## Parameters.Add "True","_Labels"
'## Parameters.Add "False","_DurSecs"
On Error Resume Next
cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Real-Time\Designer\Agent Skill Report")
If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The report Real-Time\Designer\Agent Skill Report was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "The report Real-Time\Designer\Agent Skill Report was not found on ACD 1."
Set Log = Nothing
End If
Else
b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then
Rep.Window.Top = 3097
Rep.Window.Left = 50
Rep.Window.Width = 20900
Rep.Window.Height = 9555
Rep.SetProperty "Splits/Skills","1-999"
- Stinney
Quoting only proves you know how to cut and paste.
If I go to log into CMS Supervisor, says I'm already logged in until I close out all the Server and Report Engine instances in Windows Task Manager.
I set up Windows Scheduler to stop the task if it's still running when it goes to launch, but that didn't help.
Any help would be greatly appreciated.
Here's the script for CMS:
'LANGUAGE=ENU
'SERVERNAME=XXXXXXXXX
Public Sub Main()
'## cvs_cmd_begin
'## ID = 2001
'## Description = "Report: Real-Time: Designer: Agent Skill Report: Export Data"
'## Parameters.Add "Report: Real-Time: Designer: Agent Skill Report: Export Data","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "2","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Real-Time\Designer\Agent Skill Report","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "3097","_Top"
'## Parameters.Add "50","_Left"
'## Parameters.Add "20900","_Width"
'## Parameters.Add "9555","_Height"
'## Parameters.Add "The report Real-Time\Designer\Agent Skill Report was not found on ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "1-999","Splits/Skills"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "C:\Documents and Settings\XXXXX\Desktop\export_agent-loginID.txt","_Output"
'## Parameters.Add "9","_FldSep"
'## Parameters.Add "0","_TextDelim"
'## Parameters.Add "False","_NullToZero"
'## Parameters.Add "True","_Labels"
'## Parameters.Add "False","_DurSecs"
On Error Resume Next
cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Real-Time\Designer\Agent Skill Report")
If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The report Real-Time\Designer\Agent Skill Report was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "The report Real-Time\Designer\Agent Skill Report was not found on ACD 1."
Set Log = Nothing
End If
Else
b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then
Rep.Window.Top = 3097
Rep.Window.Left = 50
Rep.Window.Width = 20900
Rep.Window.Height = 9555
Rep.SetProperty "Splits/Skills","1-999"
- Stinney
Quoting only proves you know how to cut and paste.