Dim obj

For Each obj In GetObject("winmgmts://").InstancesOf("Win32_Printer")
     if instr(obj.DeviceID, "EPSON") > 0 then
           obj.EnableBIDI = true
           obj.Put_(1)
     end if
Next
    
Set obj = Nothing

Необходимо для определенного принтера применить опцию Разрешить двусторонний обмен данными в Свойствах принтера (вкладка "Порты"). Потом эту же опцию отменить и ещё раз применить. И всё это сделать под правами администратора, т.к. скрипт будет запускаться под записью обычного пользователя.

Подскажите, пожалуйста, можно ли это реализовать средствами VBS?

Есть класс Win32_PrinterConfiguration, но дело в том, что я не могу обнаружить там нужную опцию. Есть "Duplex", но это отвечает за двустороннюю печать, а у меня речь идет про обмен данными...

Спасибо!

P.S. ОС Windows 8.1.

UPD: нужный параметр EnableBIDI из класса Win32_Printer. Проблема решена довольно просто через PS:

Set-WmiInstance -Path "Win32_Printer.DeviceID='CANANO4010'" -Arguments @{EnableBIDI=$true}

, через VBS, наверное, тоже можно, но как - мне неведомо.