vbscript - 为什么我会收到 CMS Autoscript 的“预期语句结束”错误?
问题描述
我正在尝试使用 CMS Supervisor 创建一个自动脚本,它将自动创建我需要的报告。我遇到的问题是尝试将报告自动保存为文本文件。
我从另一个论坛帖子中找到了一行并尝试将其包含在内,但现在它给了我错误。
Microsoft VBScript compilation error
[Line: 64] Expected end of statement
我不是编码或 VBscript 专家,所以我不确定为什么会发生此错误。我怎么会收到这个错误,我能做些什么来解决它?
'LANGUAGE=ENU
'SERVERNAME=CMS-CCU-V18-Primary
Public Sub Main()
'## cvs_cmd_begin
'## ID = 2001
'## Description = "Report: Historical: Agent: Group AUX Daily: Print"
'## Parameters.Add "Report: Historical: Agent: Group AUX Daily: Print","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "5","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Historical\Agent\Group AUX Daily","_Report"
'## Parameters.Add "7","_ACD"
'## Parameters.Add "1068","_Top"
'## Parameters.Add "5424","_Left"
'## Parameters.Add "13992","_Width"
'## Parameters.Add "11364","_Height"
'## Parameters.Add "default","_TimeZone"
'## Parameters.Add "The report Historical\Agent\Group AUX Daily was not found on ACD 7.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "PGHF Fraud","Agent Group"
'## Parameters.Add "-1","Date"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "G1,0,0;0,2,0","data"
'## Parameters.Add "*","_EndViews"
On Error Resume Next
cvsSrv.Reports.ACD = 7
Set Info = cvsSrv.Reports.Reports("Historical\Agent\Group AUX Daily")
If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The report Historical\Agent\Group AUX Daily was not found on ACD 7.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "The report Historical\Agent\Group AUX Daily was not found on ACD 7."
Set Log = Nothing
End If
Else
b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then
Rep.Window.Top = 1068
Rep.Window.Left = 5424
Rep.Window.Width = 13992
Rep.Window.Height = 11364
Rep.TimeZone = "default"
Rep.SetProperty "Agent Group","PGHF Fraud"
Rep.SetProperty "Date","-1"
Rep.ReportView.Add "G1,0,0;0,2,0","data"
b = Rep.ExportData("C:\Users\jlmar19\Desktop\GroupAUXDaily "&FormatDateTime(date()-1, 1)&".txt"), 44, 1, 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
解决方案
推荐阅读
- docker - 具有许多容器但只有一个运行客户端 SPA 的分布式系统
- c# - 如何使用 EF 在 2 个数据库之间复制和粘贴表
- angular8 - 旋转组件Angular在Firefox中不起作用
- django - 在服务器上运行 django
- smartcard - 在不知道文件标识符的情况下读取 SmartCard ISO 7816 的文件结构
- python - css的django问题
- c++ - 在 C++ 中创建节点的不同方式是否令人困惑?
- r - R中的多个Shapefile导出为.csv
- angular - Angular 9 CLI 向后兼容性
- java - 如何使用 Kotlin/Java 解决 AWS 中的 AccessDeniedException?