Script das PDF Dateien automatisch drucken und verschieben

 
@echo off

:pdfprint

for %%p in ("C:\temppdf\*.pdf") do (  

"C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe" /p /h %%p  

ping 127.0.0.1 -n 5
move "%%p" "C:\temppdf_move\"  


)

ping 127.0.0.1 -n 5
goto pdfprint

sc create „Testdienst“ start= auto binpath= „C:\Programme\Beispieldatei.exe“

strFolder = "C:\temppdf" 'ohne abschließenden "\", auch bei Root-Folder  

strUserFolder = """" & Replace(strFolder, "\", "\\\\") & """"  
strComputer = "."  
Set fso = CreateObject("Scripting.FileSystemObject")  
Set objShell = CreateObject("Wscript.Shell")  
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")  
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
    ("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " _  
        & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _  
            & "TargetInstance.GroupComponent= " _  
                & "'Win32_Directory.Name=" & strUserFolder & "'")  

Do
    Set objLatestEvent = colMonitoredEvents.NextEvent
    strNewFile = objLatestEvent.TargetInstance.PartComponent
    arrNewFile = Split(strNewFile, "=")  
    strFileName = arrNewFile(1)
    strFileName = Replace(strFileName, "\\", "\")  
    strFileName = Replace(strFileName, Chr(34), "")  

    If strFileName = strFolder & "\STOP" Then  
        MsgBox "Überwachung von " & strFolder & " wird beendet."  
        WScript.Quit
    End If
    
    Select Case LCase(fso.GetExtensionName(strFileName))
    
    Case "doc" 'Typ in Kleinbuchstaben angeben  
        Set objWord = WScript.CreateObject("Word.Application")  
        With objWord
            .Documents.Open strFileName
            .ActiveDocument.PrintOut
            WScript.Sleep(0815)
            .ActiveDocument.Close
            .Quit
        End With
        Set objWord = Nothing
        
    Case "pdf" 'Typ in Kleinbuchstaben angeben  
        objShell.Run """C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe"" /p /h """ & strFileName & """"  

    Case Else
        ' keine Aktion erforderlich  

    End Select
    
Loop

msgbox ("hier")