Scripts in Avaya CMS version 11

[rod1]

Hi! Can anyone have a script in automating cms reports and saving it via HTML? I already did this before but as of the moment all the scripts I have done do not run anymore. When I see the log files, I observed that the script only print the report on my printer instedd of saving it to the HTML file I did. Here is the script i got:

'LANGUAGE=ENU
'SERVERNAME=rivcms2.echostar.com
Public Sub Main()

'## cvs_cmd_begin
'## ID = 2001
'## Description = "Report: Real-Time: Agent: Agent Report: Print"
'## Parameters.Add "Report: Real-Time: Agent: Agent Report: Print","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "5","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Real-Time\Agent\Agent Report","_Report"
'## Parameters.Add "4","_ACD"
'## Parameters.Add "3810","_Top"
'## Parameters.Add "5145","_Left"
'## Parameters.Add "8865","_Width"
'## Parameters.Add "4845","_Height"
'## Parameters.Add "The report Real-Time\Agent\Agent Report was not found on ACD 4.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "2","Split/Skill"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "G4,0,0;0,2,2","data"
'## Parameters.Add "*","_EndViews"

On Error Resume Next

cvsSrv.Reports.ACD = 4
Set Info = cvsSrv.Reports.Reports("Real-Time\Agent\Agent Report&quot

If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The report Real-Time\Agent\Agent Report was not found on ACD 4.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("AVSERR.cvsLog&quot
Log.AutoLogWrite "The report Real-Time\Agent\Agent Report was not found on ACD 4."
Set Log = Nothing
End If
Else

b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then

Rep.Window.Top = 3810
Rep.Window.Left = 5145
Rep.Window.Width = 8865
Rep.Window.Height = 4845



Rep.SetProperty "Split/Skill","2"


Rep.ReportView.Add "G4,0,0;0,2,2","data"



b = Rep.PrintReport





Rep.Quit



If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If

End If
Set Info = Nothing
'## cvs_cmd_end

End Sub