Scheduling a report in CUIC

Question

Hi,
Can I schedule a report in CUIC and I want that report to dumped in a specific location.  Is this possible ?
I know the other options are to email the scheduled reports or to make it available in the dashboard. But, I do not need them. I need the scheduled reports to be dumped ina specific location.

Answer 1

We actually use a vbs script to move the "scheduled" report to a network share location.  Set the .vbs to run using Task Schedule.  Here is one of the scripts we use:
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 = "[email protected]"
            objMessage.To = "[email protected];[email protected];[email protected]"
             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