CMS Supervisor auto script Issues

[MathewRT]

Hey Team,

Am running into a little bit of an issue, and I'm stuck as to why it doesn't work. The code looks sound, but it doesn't update. I've been banging my head on the desk for several hours.... Not too productive ;-). If anyone can offer a solution, I would be very appreciative:

'LANGUAGE=ENU
'SERVERNAME=x.x.x.x
Public Sub Main()

'## cvs_cmd_begin
'## ID = 2001
'## Description = "Report: Historical: CMS custom: MULTI SPLIT: Export Data"
'## Parameters.Add "Report: Historical: CMS custom: MULTI SPLIT: Export Data","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "2","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Historical\CMS custom\ MULTI SPLIT","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "2475","_Top"
'## Parameters.Add "1200","_Left"
'## Parameters.Add "8550","_Width"
'## Parameters.Add "5775","_Height"
'## Parameters.Add "The report Historical\CMS custom\ MULTI SPLIT was not found on ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "701","Split/Skill"
'## Parameters.Add "0","Date(s)"
'## Parameters.Add "00:00-23:59","Times"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "location\file.xls","_Output"
'## Parameters.Add "9","_FldSep"
'## Parameters.Add "0","_TextDelim"
'## Parameters.Add "True","_NullToZero"
'## Parameters.Add "True","_Labels"
'## Parameters.Add "True","_DurSecs"

On Error Resume Next

cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\CMS custom\ MULTI SPLIT")

If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The report Historical\CMS custom\ MULTI SPLIT was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("AVSERR.cvsLog")
Log.AutoLogWrite "The report Historical\CMS custom\ MULTI SPLIT was not found on ACD 1."
Set Log = Nothing
End If
Else

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

Rep.Window.Top = 2475
Rep.Window.Left = 1200
Rep.Window.Width = 8550
Rep.Window.Height = 5775



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

Rep.SetProperty "Date(s)","0"

Rep.SetProperty "Times","00:00-23:59"




b = Rep.ExportData("location\file.xls", 9, 0, True, True, True)





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

 

[NX01]

I've been known to put in the wrong file address...ie location\file.xls
If it is a updated error, maybe the file is read only?

In the future everything will work...

 

[mclellan]

I would fully qualify your 'location\file.xls' i.e. c:\location\file.xls


Good luck!
Barry

 

[MathewRT]

Right, for confidentiality purposes I have removed the location, as I have the server IP. My apologies... I WISH it was that simple. As for it being read only, I've also checked that.... Sadly.

Woa is to be me .

Mathew

 

[mclellan]

Hmmm, is the location a drive mapping? \\1.1.1.1.\location?

Try putting in c:\file.xls just for kicks.


Barry

 

[NX01]

Maybe a reboot?

In the future everything will work...

 

[MathewRT]

Thanks for the tips Barry, but it still fails to update. Again, code looks fine, but sadly no progress. Does anyone know off-hand what location the log files are kept by default? Again, any and all help is appreciated!

Mathew

 

[mclellan]

Hello again,

I would erase the line 'On Error Resume Next', run the script and look at the log files.

If you remove this line, it will print out the error message to your logs.

You can find this in the same section you setup your 'Auto Script' to run.





Barry