11-11-2009 03:13 PM - edited 03-14-2019 04:51 AM
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
11-16-2009 07:23 PM
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
12-01-2011 12:26 PM
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
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: