Реклама на forum.workoffice.ru
Программатор чипов CrumProg by GenaAlfa

Автор Тема: Перезапуск очереди печати  (Прочитано 1576 раз)

0 Пользователей и 1 Гость просматривают эту тему.

bb_att

  • Newbie
  • *
  • Сообщений: 2
  • Репутация: +0/-0
    • Просмотр профиля
    • E-mail
Перезапуск очереди печати
« : 29 Марта, 2011, 11:52:32 »
Доброго времени суток!

Столкнулся с такой проблемой.
Есть сервер с win2008 r2 sp1. На нем развернут терминал 1с, установлены принтеры, порядка 30. К серверу подключаются удаленные объекты, соединенные VPN каналом. Скорость канала варьируется от 96-512 Кбит/с. Периодически, при печати на принтер, задание останавливается ошибкой и висит со статусом "ошибка". Для продолжения работы необходимо открыть принтер, выбрать задание с ошибкой правой кнопкой, и нажать "Перезапустить". Задание перезапускается и печатается.
Так как принтеров большое кол-во, и задания зависают ошибкой, есть возможность проверять принтеры на ошибку скриптом. В инете нашел такой скрипт:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPrintJobs =  objWMIService.ExecQuery _
    ("Select * from Win32_PrintJob")
For Each objPrintJob in colPrintJobs
    objPrintJob.Resume
Next

Однако, этот скрипт возобновляет печать, только если задание было приостановлено, а перезапускать не хочет.
 Может у кого нибудь есть советы или кто-нибудь сталкивался с такой проблемой, или подобными скриптами, конкретно для перезапуска очереди?
Заранее спасибо.

Ярек Лама

  • Advanced Member
  • *****
  • Сообщений: 5678
  • Репутация:+456/-0
Перезапуск очереди печати
« 29 Марта, 2011, 11:52:32 »
Неважно, что ты делаешь, лишь бы переделывать никому не пришлось.

bb_att

  • Newbie
  • *
  • Сообщений: 2
  • Репутация: +0/-0
    • Просмотр профиля
    • E-mail