scripting in AI - Export Jpeg

[pugs421]

I am starting to learn how to automate tasks using the AI scripting plugin and VBScript. The documentation is mostly writen in VB and not VBScript. If anyone has knowledge in scripting for Illustrator can you please point me in the right direction as to what is wrong with this script:

Dim appRef
Set appRef = CreateObject( "Illustrator.Application" )

Dim fileName
fileName = "Z:\Mikep\aiScripting\dvdTest.ai"

Dim jpegExportOptions
Set jpegExportOptions = CreateObject("Illustrator.ExportOptionsJPEG")

Dim docRef
Set docRef = appRef.Open(fileName)

jpegExportOptions.QualitySetting = 70

docRef.Export "z:\mikep\aiScripting\outputFile.jpg", aiJPEG, jpegExportOptions

Thanks

 

[pugs421]

I found out how.

Substitute the number 1 in place of aiJPEG