Тема: VBS: Перевод принтера в "оперативный" режим
По своей работе частенько сталкиваюсь с тем, что пользователи кривыми ручками переводят принтер в режим Offline, т.е. "Автономная работа" и потом кричат, что принтер в состоянии "не подключен", провода все проверили — на месте, но он ничего не печатает. Так же учёл состояние приостановленной печати и комбинацию с автономным состоянием…
Вот по этому поводу написал следующий скрипт, который переводит принтер в "Оперативный режим", надеюсь кому-нибудь пригодится:
Set Shell = CreateObject("Shell.Application")
Set objFolder = Shell.NameSpace(4)
For Each printer In objFolder.Items
If InstrRev(objFolder.GetDetailsOf(printer, 2), "Не подключен") <> 0 Then ' если принтер в режиме "Автономная работа"
printer.InvokeVerbEx("&Использовать принтер в оперативном режиме")
End If
If InstrRev(objFolder.GetDetailsOf(printer, 2), "Приостановлена") <> 0 Then ' если принтер в режиме "Приостановленой печати"
printer.InvokeVerbEx("Возобновить &печать")
End If
Next