Private Function CMSGetReport(sServerIP As String, iACD As Integer, sReportName As String, sProperty1Name As String, sProperty1Value As String, sProperty2Name As String, sProperty2Value As String, sProperty3Name As String, sProperty3Value As String, sExportName As String) As Boolean
Dim cvsApp As CVSUP.cvsApplication
Dim cvsConn As CVSCN.cvsConnection
Dim cvsSrv As CVSUPSRV.cvsServer
Dim Rep As CVSREP.cvsReport
Dim Info As Object, Log As Object, b As Object

Set cvsApp = New CVSUP.cvsApplication
If cvsApp.CreateServer(getusername(sServerIP), "", "", sServerIP, False, "ENU", cvsSrv, cvsConn) Then
If cvsConn.Login(getusername(sServerIP), getpassword(sServerIP), sServerIP, "ENU") Then

CMSGetReport = False

On Error Resume Next
    cvsSrv.Reports.ACD = iACD
    Set Info = cvsSrv.Reports.Reports(sReportName)
    If Info Is Nothing Then
        If cvsSrv.Interactive Then
            MsgBox "The Report " & sReportName & " was not found on ACD" & iACD & ".", vbCritical Or vbOKOnly, "CentreVu Supervisor"
        Else
            Set Log = CreateObject("CVSERR.cvslog")
            Log.AutoLogWrite "The Report " & sReportName & " was not found on ACD" & iACD & "."
            Set Log = Nothing
        End If
    Else
        b = cvsSrv.Reports.CreateReport(Info, Rep)
        If b Then
            Debug.Print Rep.SetProperty(sProperty1Name, sProperty1Value)
            Debug.Print Rep.SetProperty(sProperty2Name, sProperty2Value)
            Debug.Print Rep.SetProperty(sProperty3Name, sProperty3Value)
            b = Rep.ExportData(sExportName, 9, 0, True, False, True)
            Rep.Quit
            CMSGetReport = True
            If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
            Set Rep = Nothing
        End If
    End If
    Set Info = Nothing
End If
End If
End Function