Running Crystal Reports via VBS Script

Running Crystal Reports via VBS Script

NewsGroups | Search | Tools
 comp.dcom.sys.nortel  Post an article  get this group's latest topics as an RSS feed add this group's latest topics to your My MSN content add this group's latest topics to your My Yahoo content  add this group's latest topics to your Google content  YahooMyWeb Yahoo!  Google Google  Windows Live Favorites Windows Live  del.icio.us del.icio.us  digg digg  Add to Netscape Netscape
Subject Author Date
Running Crystal Reports via VBS Script Heelan 09-20-2005
Posted by Heelan on September 20, 2005, 9:52 am
If you were  Registered and logged in, you could reply and use other advanced thread options


I am currently running Symposium Server 5. We are also using remedy
for ticket tracking. I have a VBS script that connects to the Remedy
Oracle Database and runs reports daily, but can not figure out how to
make the VBS script connect to the Symposium Database. Here is the VBS
script I am using for Remedy:



'<job id='CSVCommandLineScheduler'>

        Option Explicit

        Dim oApp

        Set oApp = CreateObject("CrystalRuntime.Application")
        Dim oRpt
        Set oRpt =
oApp.OpenReport("C:\RemedyStats\Automation\CrystalVB\RITSD.rpt",1)
oRpt.DiscardSavedData

Dim Table
        For Each Table in oRpt.Database.Tables
        Table.SetLogonInfo "ARDBC","miaremedyapp01","RITSDRPT","XXXXXX"
        Next

        Dim FileSystemObject
        Dim FolderPath2
        DIM FolderPath1
        Dim FolderObject
        Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
        FolderPath2 = "H:\automation\"
        FolderPath1 = "C:\RemedyStats\Automation\"
        'Set FolderObject = FileSystemObject.CreateFolder(CStr(FolderPath2))
        'Set FolderObject = FileSystemObject.CreateFolder(CStr(FolderPath1))


        Dim ExportOptions
        Set ExportOptions = oRpt.ExportOptions
        ExportOptions.FormatType = 31
        ExportOptions.DestinationType = 1
        ExportOptions.DiskFileName = FolderPath2 & "RITSD.pdf"
        ExportOptions.DiskFileName = FolderPath1 & "RITSD.pdf"

oRpt.Export False
        
'</script>
'</job>

Any assistance will be greatly appreciated.



Similar ThreadsPosted
Scheduling Reports and Auto Running February 17, 2006, 3:26 pm
Abandon Call Report-Symposium 4.2-Using Crystal Report 8.5 July 17, 2006, 10:03 am
QSIG Bug on 81C running Succession 3.0 May 7, 2006, 2:13 am
Running FICON Over OPTera 5200 September 20, 2005, 5:48 pm
802.1x Supplicant Running on a SOHO NAT Device October 19, 2006, 5:07 pm
Alteo health script August 3, 2005, 8:44 pm
script file or time limit? May 29, 2005, 9:27 pm
alteon health script content August 31, 2005, 7:50 pm
alteon health script timeout November 22, 2006, 12:29 pm
Symposium Express Reports issue March 14, 2007, 11:58 am

other useful resources:
The Federal Communications Commission (FCC)
Telecommunications Industry Association
Electronic and Software Security Products and Services
International Telecommunication Union

Custom CGI Perl and PHP programming by 1-Script.com

Contact Us | Privacy Policy
The site map in XML format XML site map