VBS: Перевод принтера в "оперативный" режим

2011-01-13T15:34:08Z

По своей работе частенько сталкиваюсь с тем, что пользователи кривыми ручками переводят принтер в режим 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

Серый форум — VBS: Перевод принтера в "оперативный" режим

VBS: Перевод принтера в "оперативный" режим