Results 1 to 5 of 5
  1. #1
    Join Date
    Jul 2004
    Posts
    8

    help connecting to Avaya CentreVu Supervisor 9 through VBA

    Hi,
    I am having trouble connecting to Avaya CentreVu Supervisor 9 servers through VBA. I have imported the references to the database but I am not able to get the CreateServer function to work properly. It keeps generating the error "Object variable or With block variable not set (Error 91)." Any help would be appreciated.
    Thanks,
    Jack

  2. #2
    Join Date
    Jul 2004
    Posts
    8
    I have determined a solution to this.
    Thanks,
    Jack

  3. #3
    Join Date
    Dec 2002
    Location
    Raleigh, NC, USA
    Posts
    19

    Connecting to CentreVu Supervisor

    Can you tell me how you connected to the CentreVu machine?

  4. #4
    Join Date
    Jul 2004
    Posts
    8
    Sure I imported the references and created the objects to them. from there I connected to the server and ran the reports I needed to. I was unable to find this anywhere else on the net so there may be a better way.

    Code:
    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

  5. #5
    Join Date
    Oct 2006
    Posts
    1
    What references you imported?

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •