cancel
Showing results for 
Search instead for 
Did you mean: 
cancel
626
Views
0
Helpful
2
Replies

CRS Historical Reporter

Nicholas Deller
Level 1
Level 1

Hi,

Currently I have set a handful of daily, weekly, monthly reports which have been setup using the scheduler.

Now I would like to have these delivered to a network share so that I can grant people permission to view this data.

I have tried this but it only ever seems to deliver if set to a local folder.

Is it possible to distribute to a network share, and if so how can this be done?

Many Thanks

Nic

2 Replies 2

lpassmore
Level 1
Level 1

Not sure about scheduled reports, but try editing the hrcConfig.ini in the C:\Program Files\Cisco UCCX Historical Reports directory.

Look at the last line "UseSharedMemory" and ensure this is set to 1

;use this section to specify alternative to use Shared Memory model only in the scenario where network printing or ;exporting to network share is required.

;Shared Memory Model report generation will be relatively slow compared to non-shared memory model.

;The maximum records that can be generated are upto 80k-100k for any report on 1GB RAM machine.

[MODEL]

;Use one of the following values:

;1 - to use Shared Memory model

;0 - to not use Shared Memory model (default)

UseSharedMemory=1

We use a .vbs script and have it scheduled to run using Task Scheduler:

dim dtmToday, dtmFileDate

dtmToday = Date

On Error Resume Next

Set FSO = CreateObject("Scripting.FileSystemObject")

Set LogFile = FSO.OpenTextFile("C:\DonnaLogs.txt",8,TRUE)
Set objFOlder = FSO.GetFOlder("C:\Documents and Settings\ciscouccxreport\Desktop\Donna Reports")

Set datafiles = objFOlder.Files
NumberofFiles = DataFiles.count

If NumberofFiles < 8 Then


  
    Dim objMessage
        Dim strTextBody
        Dim strEmailTo     
        Dim intInstance 
        Dim strEnableCount
Dim DiffTime
               
        'Initialize the objects
        '*****************************************************************************************
        Set objMessage = CreateObject("CDO.Message")
         
        objMessage.Subject = "Donnas Reports failed"
        

                                  
           
            objMessage.From = "fpalmore@edpstech.com"
            objMessage.To = "fpalmore@edpstech.com;tcairns@edpstech.com;tholland@estes-express.com"

          '*****************************************************************************************
           
        
             objMessage.TextBody = "Donnas Reports failed today"  & VBCRLF & VBCRLF
      
            'Set email TextBody
            '*****************************************************************************************
            'objMessage.TextBody = strTextBody
            '*****************************************************************************************
                      
           
            'Set email TextBody
            '*****************************************************************************************
            'objMessage.TextBody = strTextBody
            '*****************************************************************************************

                 
       
           '*****************************************************************************************
       
        '==This section provides the configuration information for the remote SMTP server.
        '*****************************************************************************************
        objMessage.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
       
        'Name or IP of Remote SMTP Server
        objMessage.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail65002.edps.dom"
       
        'Type of authentication, NONE, Basic (Base64 encoded), NTLM
        'objMessage.Configuration.Fields.Item _
        '("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
       
        'Server port (typically 25)
        objMessage.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
       
        'Use SSL for the connection (False or True)
        objMessage.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
       
        'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
        objMessage.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
       
        objMessage.Configuration.Fields.Update
       
        '==End remote SMTP server configuration section==
        '*****************************************************************************************
       
       
        'Send the email
        '*****************************************************************************************
        objMessage.Send
        '*****************************************************************************************
       
       
        'Destroy the object
        '*****************************************************************************************
        Set objMessage = Nothing
        '*****************************************************************************************

 

    End if


LogFile.WriteBlankLines(1)
LogFile.WriteLine("[CHECKING DONNA'S REPORT STATUS " & NOW & "]" )

For Each objFile in objFolder.Files
    dtmFileDate = objFile.DateLastModified
    intDaysDifference = DateDiff("d", dtmFileDate, dtmToday)

    If intDaysDifference < 2 Then
    Err.clear
           FSO.CopyFile objFile.Path, "\\deptpublic\deptpublic\HR\Phone Reports\Monthly Reports\"
    If Err = 0 then
  LogFile.WriteLine(" COPIED " & objFile.Path & " to \\deptpublic\deptpublic\HR\Phone Reports\Monthly Reports\")
    Else
  LogFile.WriteLine(" **ERROR " & Err.Number & " copying " & objFile.Path & " to \\deptpublic\deptpublic\HR\Phone Reports\Monthly Reports\")
  LogFile.WriteLine(" ******* " & Err.Description)
  Err.clear
    End If
    Else
If intDaysDifference > 2 Then
    Err.clear
    FilePath = objFile.Path
           If objFile.DELETE = 0 Then
  LogFile.WriteLine(" DELETED " & FilePath)
    Else
  LogFile.WriteLine(" **ERROR " & Err.Number & " DELETING " & objFile.Path)
  LogFile.WriteLine(" ******* " & Err.Description)
  Err.clear
    End If
End If
    End If
Next

LogFile.WriteLine("[COMPLETING DONNA'S UPDATE " & NOW & "]" )

LogFile.Close

Getting Started

Find answers to your questions by entering keywords or phrases in the Search bar above. New here? Use these resources to familiarize yourself with the community: