Очистка очереди печати

Скрипт как очистить очередь печати, очень полезная вещь, автоматизирует много процессов.
Есть у меня несколько компьютеров, которые после перезагрузки, начинают печатать уже напечатанные задания предыдущего сеанса работы. "Победить" неприятность можно очистив спул печати. Необходимо поставить данный файл на выполнение через планировщик задач, указав на закладке "Расписание" назначить задание "При включении компьютера".
При такой настройке назначенное задание будет очищать очередь печати до включения службы "Диспетчер печати" на компьютере пользователя.

Текст скрипта:
On Error Resume Next
Const DeleteReadOnly = TRUE
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
objFSO.DeleteFile(WshShell.ExpandEnvironmentStrings("%WinDir%") & "\system32\spool\PRINTERS\*.*"), DeleteReadOnly