[Автоматизация] Скрипт для печати PDF из папки

;Автоматическая печать PDF-файлов, появляющихся в определенной папке
;Глобальные переменные
$gFSO = ObjCreate("Scripting.FileSystemObject")
$gShell = ObjCreate("WScript.Shell")
;Папка, в которой скрипт ждет PDF-файлы (к этой папке (папкам) д.б. дан доступ по сети)
$gWatchFolder = "C:\test\"
;Основной цикл
While true
$lFolder = $gFSO.GetFolder($gWatchFolder)
$lFiles = $lFolder.Files
For  $lFile In $lFiles
PrintFile($gWatchFolder & $lFile.Name)
Sleep(100)
Next
WEnd

;Функция печати конкретного pdf-файла
Func PrintFile($pFileName)
;Ждем некоторе время (пока файл до конца запишется)
Sleep(300)
;msgbox(1,'',$pFileName)
;Мы (больше) не боимся пробелов :Р
$s = """c:\Program Files\Foxit Software\Foxit Reader\Foxit Reader.exe"" /p """ & $pFileName
;msgbox (1,'',$s)
$gShell.Run($s,0,true)
$gFSO.DeleteFile($pFileName)
If $gFSO.FileExists($pFileName) Then
;Мало ли чего может случиться, лучше пусть у Иван Иваныча перестанет печатать, чем один файл много раз уйдет на принтер
;msgbox(1,"","Не удалось удалить файл " & $pFileName & " ! Позвоните Василию по т. 123-456")
Exit
Else
;Пока не реализовано
;ToLog(«Файл » & lFileName & » удален.»)
EndIf
EndFunc