Lokalen Drucker per Script Löschen

[Christian_Bothe]

Hallo,

wer kennt eine Lösung?
Um Missverständnisse vorzubeugen es geht mir nur um die/den
lokalen Drucker und nicht um netzwerkdrucker.

Dank im voraus.

Christian

[dieseyer_de]

Hallo!

Im „Portable Script Center v3.0“
http://www.microsoft.com/downloads/details.aspx?Fami… suche mal nach ‚Delete a Printer‘ . . .

[dieseyer_de]

Hallo!

Im „Portable Script Center v3.0“
http://www.microsoft.com/downloads/details.aspx?Fami…
suche mal nach ‚Delete a Printer‘ . . .

Sorry - dort findest du:

strComputer = „.“
Set objWMIService = GetObject(„winmgmts:“ _
& „{impersonationLevel=impersonate}!\“ & strComputer & „\root\cimv2“)

Set colInstalledPrinters = objWMIService.ExecQuery _
(„Select * from Win32_Printer where DeviceID = ‚ScriptedPrinter‘“)

For Each objPrinter in colInstalledPrinters
objPrinter.Delete_
Next