Цитата Iska:
же имеющийся в наличии код? »
|
Лично я от Вас первый раз в этой теме вижу этот код, благодарен Вам
Заметил некую бяку - этот скрипт, файл с расширением 1.vbs
Код:
Option Explicit
On Error Resume Next
WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2").Get("Win32_Printer.DeviceID='Microsoft XPS Document Writer'").Delete_
WScript.Quit 0
удалит принтер
Microsoft XPS Document Writer только если - запустить командная строка с парвами администратора + выполнить файл 1.vbs
Если просто запустить файл 1.vbs - принтер не удалится
Бяка в том, что если на файле 1.vbs парвой кнопкой мышки нажать - не будет строки Запуск с парвами администратора
Пожалуйста, научите, можно или нет внутрь файла 1.vbs чего-то написать, чтобы файл 1.vbs запускался с парвами администратора?
PS. Нашел еще одну версию удалить принтер при помощи vbs
перейти - 1.vbs
Код:
' https://www.vbsedit.com/scripts/printing/client/scr_1126.asp
' Delete a Printer
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer where DeviceID = 'Microsoft XPS Document Writer'")
For Each objPrinter in colInstalledPrinters
objPrinter.Delete_
Next
Запустить командная строка с правами администратора + выполнить файл 1.vbs