' Scanjob Programm
Set wscan = CreateObject("WScript.Shell")
Set fsobj = CreateObject("Scripting.FileSystemObject")
 
Dim ProgPathScan
Dim ProgPath2Pdf
Dim FileName
Dim FilePath
Dim Outpath
Dim comm
Dim m
ProgPathScan = "C:\Programme\irfanview\i_view32.exe"
ProgPath2Pdf = "C:\Programme\PDFCreator\PDFCreator.exe"
FileName = "autoscan"
FilePath = "c:\temp"
Outpath = "E:\Projekte\Eigene Dokumente\Acrobat Dokumente"
Set fildat = fsobj.GetFile(FilePath & "\" & FileName & "01.tif")
if fsobj.fileExists(FilePath & "\" & FileName & "01.tif") then fildat.delete
m=0
' Irfanview muss zur TIFF speicherung angepasst werden. Dies geschiet durch 
' speichern einer Datei ins CITT Format ansonsten
' werden die Datei unnötig Gross wurde abgelöst durch die Option /tifc=4
Do Until antw = vbNo
	m = m + 1
  comm = ProgpathScan & " /batchscan=(" & FileName &",1,1,2,0," & FilePath _
    &",tif," & 1 & ") /dpi=(300,300) /bpp=1 /scanhidden"  
  Set oex = wscan.exec(comm)
  Do While oex.status = 0
    WScript.Sleep 100
  Loop
  antw = MsgBox("Weiteres Dokument Scannen ?",vbYesNo,m & " Dokumente gescannt")
Loop
psnam=""
  psnam = InputBox("Bitte Dokumentname eingeben ","Eingabe",".pdf")
Set PDFCreator = Wscript.CreateObject("PDFCreator.clsPDFCreator", "PDFCreator_")
With PDFCreator
  If .cStart("/NoProcessingAtStartup")= False Then
  	MsgBox "PDFCreator nicht gestartet"
  	wscript.quit
  Else
   .cOption("UseAutosave") = 1
   .cOption("UseAutosaveDirectory") = 1
   .cOption("AutosaveDirectory")=OutPath & "\"
   .cOption("StandardAuthor")="Dipl. Ing. (FH) Andreas Holzer"
   .cOption("UseStandardAuthor")=1
   .cOption("AutosaveFilename")=psnam
   .cOption("AutosaveFormat")=0
   .cOption("UseAutosave")=1
   .cSaveOptions
   .cClearCache
   .cPrinterStop = False
  End If 
End With
comm = ProgPathScan & " " & FilePath & "\" & FileName & "01.tif /tifc=4" & _
  "/print=PDFCreator"
Set oex = wscan.exec(comm)
  Do While oex.status = 0
    WScript.Sleep 100
  Loop
MsgBox "Einstellungen zurücksetzten"  
Set PDFCreator = Nothing
Set PDFCreator = Wscript.CreateObject("PDFCreator.clsPDFCreator", "PDFCreator_")
With PDFCreator
 .cOption("UseAutosave") = 0
 .cOption("UseAutosaveDirectory") = 0
 .cOption("StampString")=""
 .cOption("AutosaveDirectory")=""
 .cOption("AutosaveFormat")=0
 .cSaveOptions
 .cClearCache
 .cClose
End With