[SharkyEXE]

Iska

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

Тогда, если Вы знаете, будьте так любезны, напишите альтернативные, не Wbem способы удаления принтера?

Я не знаток, не мага профессионал, просто я считал, что vbs или wmic - это разные способы удаления принтера

Теперь мне хочется, если это возможно, разные методы, разные технологии удаления принтера

Спасибо.

[Iska]

Разве что:

Код:

rundll32.exe printui.dll,PrintUIEntry /n "Epson Stylus C20 Series (M)" /dl

[SharkyEXE]

Iska

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

Итого, подъитог

Абсолютно одинаковые способы удаления принтера (способы на Wbem, vbs = wmic, кому что нравится, можно использовать ОДНО ИЗ или сразу оба способа, функционально одно и тоже)

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

wmic

Код:

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

Альтернативный способ удаления принтера (способ не на Wbem)
rundll32

Код:

rundll32.exe printui.dll,PrintUIEntry /n "Epson Stylus C20 Series (M)" /dl

Все верно написал или я ошибся, просьба поправить?

[Iska]

Угу. Только лучше будет написать как-то так:

1. Wbem: а) WSH (VBScript): … б) утилита командной строки wmic.exe: … 2.

[SharkyEXE]

Iska

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

Я могу ошибаться, просьба поправить, но я когда использую код перейти, я код скомпилировал в exe файл, когда я запускаю exe файл, то если у меня нету принтера нету, то вываливается ошибка

Суть - можно Вас попросить, пожалуйста, в коде сделать проверку, мол:
1) если принтер Epson Stylus C20 Series (M) найдется, то для принтера Epson Stylus C20 Series (M) сделать команду

Код:

$oSWbemLocator.ConnectServer(".", "root\cimv2").Get("Win32_Printer.DeviceID='Epson Stylus C20 Series (M)'").Delete_

2) если принтера Epson Stylus C20 Series (M) нету, то для принтера Epson Stylus C20 Series (M) не делать команду

Код:

$oSWbemLocator.ConnectServer(".", "root\cimv2").Get("Win32_Printer.DeviceID='Epson Stylus C20 Series (M)'").Delete_

Пожалуйста, будьте так, любезны

[Iska]

SharkyEXE, попробуйте, например, так:

Код:

AutoItSetOption("MustDeclareVars", 1)

Local $oSWbemLocator  = ObjCreate("WbemScripting.SWbemLocator")
Local $oSWbemObjectEx

For $oSWbemObjectEx In $oSWbemLocator.ConnectServer(".", "root\cimv2").InstancesOf("Win32_Printer")
	If $oSWbemObjectEx.DeviceID = "Epson Stylus C20 Series (M)" Then
		$oSWbemObjectEx.Delete_

		ExitLoop
	EndIf
Next

Exit(0)