[Petya V4sechkin]

имя принтера ввожу точно правильно

Как?
\\сервер\принтер

Есть и другие способы.
Например, стандартный Prnmngr.vbs в папке \WINDOWS\system32 или VBS в две строчки:

Код:

Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.RemovePrinterConnection "\\сервер\принтер", true, true

[-NotFound-]

Есть и другие способы. Например, стандартный Prnmngr.vbs в папке \WINDOWS\system32 или VBS в две строчки: Код: Set WshNetwork = WScript.CreateObject("WScript.Network") WshNetwork.RemovePrinterConnection "\\сервер\принтер", true, true »

Большое спасибо!

[le9i0nx]

Нашел через поиск в реестре такой вариант удаления локального принтера
надо просто удалить ветку реестра

Код:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Printers\Имя_локального_принтера

Проверено в домене с windows 7

[SharkyEXE]

Всем здравствуйте.

Пожалуйста, напишите альтернативные способы удаления локального принтера Microsoft XPS Document Writer
rundll32.exe - уже есть

Хочется VBS, WMIC

[Petya V4sechkin]

SharkyEXE, есть стандартный Prnmngr.vbs (в XP/2003 - в папке \WINDOWS\system32, в последующих ОС - в папке \Windows\System32\Printing_Admin_Scripts\локаль).

Примеры

[SharkyEXE]

Petya V4sechkin

Здравствуйте.

Как я понял Prnmngr.vbs или https://winitpro.ru/index.php/2014/0...i-v-windows-8/ - это VBS язык

Есть или нет у Вас информация, как удалить, используя WMIC?

Спасибо.

[Iska]

как удалить, используя WMIC? »

Код:

wmic.exe Printer where "DeviceID='Epson Stylus C20 Series (M)'" delete

Проверить, отработает ли для Microsoft XPS Document Writer, предоставляю Вам.

P.S. Обратите внимание, что сам драйвер при этом не удаляется.

[SharkyEXE]

Iska

Здравствуйте.

1)

P.S. Обратите внимание, что сам драйвер при этом не удаляется. »

Лично мне хватит любого способа, чтобы принтер исчез из Пуск -> Панель управления -> Устройства и Принтеры, чтобы в программах типа Word, Excel, Mozilla Firefox не предлагалось печатать на такие принтеры как:

Код:

Microsoft XPS Document Writer
Fax

2) Извините меня, за, возможную наглость, не будете ли Вы так любезны написать решение на VBS, чтобы поменьше кода, чем здесь

стандартный Prnmngr.vbs (в XP/2003 - в папке \WINDOWS\system32, в последующих ОС - в папке \Windows\System32\Printing_Admin_Scripts\локаль). »

Может быть из файла Prnmngr.vbs выдернуть кусок кода, который отвечает за удаление принтера и этого, для удаления принтера, хватит, может еще короче решение на VBS есть

[Iska]

решение на VBS, чтобы поменьше кода, чем здесь »

А чем не устраивает стандартный и уже имеющийся в наличии код?

Код:

Option Explicit

On Error Resume Next

WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2").Get("Win32_Printer.DeviceID='Epson Stylus C20 Series (M)'").Delete_

WScript.Quit 0

[SharkyEXE]

же имеющийся в наличии код? »

Лично я от Вас первый раз в этой теме вижу этот код, благодарен Вам

Заметил некую бяку - этот скрипт, файл с расширением 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