corel 8.0 Photopaint - Script für Resample auf 1024*768

[Joerg]

Hallo, ich suche Script oder ein Prog. das alle Bilder aus einem Ordner auf das Format 1024*768 resampelt und mit dem gauss-unschärfe Verfahren optimiert. Dabei sollte nicht unbedingt auf 1024*768 vergrössert werden, sondern auf die Grenze 1024 oder 768 unter Beibehaltung der Seitenverhältnisse geachtet werden.
Bislang arbeite ich mit dem Script:

REM Effekt 'joerg'
REM   1120*768 von Joerg Peters, 2000
REM für PhotoPaint 8 entwickelt

label1 = "Dieses Skript resampelt ein Bild auf 72 dpi auf die Höhe von 768 Pixeln in 24 bit Modus."

WITHOBJECT "CorelPhotoPaint.Automation.8"
REM .EffectGaussianBlur 0.22
.EffectRemoveNoise 127, TRUE
  .EndColorEffect
.ImageResample 1024, 768, 72, 72, -1
REM .ImageResample 768, 1024, 72, 72, -1
REM .EffectDiffuse 20

END WITHOBJECT