I have a script set up for AVAYA and I want to run this script using EXCEL. I can set it up as a link in excel with a Macro to run the link but that presents a problem as the tool will be used by multipeople at multiple sites and would have to be adjusted on everyones computer for the link to work. The script is below. Is there any way to incorporate this language(or similer) into EXCEL to make it perform this operation? Thank you in advance for any helpful guidance.
Public Sub Main()
DatRange = Inputbox ("This program will display the daily AUX, Summary reports,and log in report. Please enter the date of the reports you wish to see in the format m/d/yy")
'----------------------------------------------------------
On Error Resume Next
cvsSrv.Reports.ACD = 1
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 2.", 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 2."
Set Log = Nothing
End If
Else
b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then
Rep.SetProperty "Agent Group","OP Michael Snook"
Rep.SetProperty "Date",DatRange
b = Rep.Run
If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If
End If
Public Sub Main()
DatRange = Inputbox ("This program will display the daily AUX, Summary reports,and log in report. Please enter the date of the reports you wish to see in the format m/d/yy")
'----------------------------------------------------------
On Error Resume Next
cvsSrv.Reports.ACD = 1
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 2.", 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 2."
Set Log = Nothing
End If
Else
b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then
Rep.SetProperty "Agent Group","OP Michael Snook"
Rep.SetProperty "Date",DatRange
b = Rep.Run
If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If
End If