output = "C:\out.jpg" 
 
Set saveOptions = CreateObject("Photoshop.ExportOptionsSaveForWeb")             
 
saveOptions.Format = 6  
saveOptions.Interlaced = false  
saveOptions.IncludeProfile = false 
saveOptions.MatteColor = RGBColor 
saveOptions.ColorReduction = 1     
saveOptions.quality = 70 
saveOptions.Colors = 256  
saveOptions.Transparency = false   
saveOptions.Dither = psNoDither 
       
docRef.Export output, ExportOptionsSaveForWeb, saveOptions 

Dim PSDapp As Object = CreateObject("Photoshop.Application") 
Dim docRef As Object = PSDapp.open("C:\out.jpg") 

Dim docRef 
Set docRef = appRef.ActiveDocument 

Set appRef = CreateObject("Photoshop.Application")     
Set saveOptions = CreateObject("Photoshop.ExportOptionsSaveForWeb")     
Set img = appRef.Open("c:\image.png")          
 
saveOptions.Format = 13 'psPNGSave     
saveOptions.PNG8 = True     
saveOptions.Transparency = True     
saveOptions.Dither = psNoDither       
img.ResizeImage 620, 620     
 
img.Export "c:\image2.png", 2, saveOptions 

// saveForWeb_asFunction_kurz .jsx 
function exportSFWJpg( aDoc, saveFile, qty ) { 
    var exportOpts = new ExportOptionsSaveForWeb(); 
    exportOpts.format = SaveDocumentType.JPEG 
    exportOpts.includeProfile = false; // nicht unbedingt nötig, weil default 
    exportOpts.quality = qty; 
    exportOpts.optimized = true; 
    exportOpts.interlaced = false; 
     
    aDoc.exportDocument( saveFile, ExportType.SAVEFORWEB, exportOpts ); 
    } 
 
var aDoc = activeDocument; 
var fname = "~/Desktop/Testdateien"; // dieser Ordner muss vorhanden sein 
var saveFolder = Folder(fname); 
var docName = aDoc.name; 
var saveName = docName.replace( /\.[^.]+$/,'.jpg' ); 
exportSFWJpg( aDoc, new File( saveFolder + '/' + saveName ), 80 ); 

Dim output 
output = "C:\Users\Desktop\output\ausgabe.jpg" 
 
 
Set saveOptions = CreateObject("Photoshop.ExportOptionsSaveForWeb")             
 
saveOptions.Format = 6  'JPEG 
saveOptions.Interlaced = false  
saveOptions.quality = 70 
saveOptions.IncludeProfile = false 
saveOptions.optimized = true 
 
Set active = appRef.ActiveDocument 
active.Export output,2, saveOptions