Автоматическая печать всех файлов из папки по сети.

Так получилось, что у меня остался один древний принтер, который не поддерживается 64-битными операционными windows. У меня завалялся и древний ноут, который тянул форточки.

В результате на этом компьютере поставил FoxIt Reader для печати pdf, openoffice для печати .doc, .xsl.

Стандартные картинки я печатаю встроенными средствами. Я расшарил папку, кинул в неё нужность и печатаешь. Идти к старику - уже принт-серверу ломает. У меня появилось желание автоматизировать процесс печати.

Решение получилось - из софта стоит то, что надо для открытия файлов, плюс одна программка и плюс скрипт в автозагрузке. Полёт нормальный.

Программка ClassExec разрешает имитировать нажатие пункта печать в контекстном меню.

Скрипт ниже делает это нажатие для файлов в папке, к которой доступен по сети.

1. 'print-loop.vbs
   'Автоматическая печать знакомых системе файлов, появляющихся в определенной папке
3. Set gFSO = CreateObject("Scripting.FileSystemObject")
4. Set gShell = CreateObject("WScript.Shell")
6. 'Папка, в которой скрипт ждет файлы. К ней есть доступ по сети на запись
7. gWatchFolder = "G:\PrintME\"
8. 'Основной цикл
9. While true
10.  Set lFolder = gFSO.GetFolder(gWatchFolder)
11.  Set lFiles = lFolder.Files
12.  For Each lFile In lFiles
13.   PrintFile(gWatchFolder & lFile.Name)
14.  Next
15.  WScript.Sleep(1000)
16. WEnd
18. 'Функция печати конкретного файла
19. Sub PrintFile(pFileName)
20.  'Ждем некоторе время (а вдруг файл большой, ещё не записался)
21. WScript.Sleep(10000)
22.  s = """c:\!bin\classExec.exe"" """ & pFileName & """ --action print"
23.  Call gShell.Run(s,0,true)
24.  'Некоторые файлы могут печататься долго, поэтому вылавливаем-с его освобождение тупым повтором удаления
25. While gFSO.FileExists(pFileName)
26.  WScript.Sleep(5000)
27.  gFSO.DeleteFile(pFileName)
28. WEnd
29. End sub