Drucker per Script im netzwerk löschen

[Butch12]

Hallo!

ich hab mir mit nem Kollegen ein kleines script, welches ganz einfach aufgebaut ist, gebastelt, um den XPS Document Writer und den Office Image Writer für das gesamte Netzwerk zu löschen.

-rundll32 printui.dll,PrintUIEntry /dl /n "Microsoft Office Document Image Writer"

-rundll32 printui.dll,PrintUIEntry /dl /n "Microsoft XPS Document Writer"


Jetzt das Problem! Wenn ich das Skript starte und einer der beiden Drucker bzw beide sind schon gelöscht, kommt das:

(Der Drucker kann nicht entfernt werden.Entweder der eigegebene Druckername ist ungültig, oder der angegebene Drucker ist nicht mehr mit dem Server verbunden.)

sind jedoch beide da haut es hin!!!??

wenn jemand ein paar hilfreiche tipps für mich hat wäre das klasse!!

falls ich mit dem Thema an falscher stelle bin

thx im vorraus

 

[PraesidentEvil]

Probier mal das hier...hab aber keine Ahnung ob das geht!

strComputer = "."
Set objShell = CreateObject("Wscript.Shell")
Set objWMIService = GetObject ("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery ("SELECT * FROM Win32_Printer")

For Each objItem In colItems
  If objItem.ShareName = "Microsoft Office Document Image Writer" then
    objShell.Run "rundll32 printui.dll,PrintUIEntry /dl /n "Microsoft Office Document Image Writer"
  End if
  
  Wscript.Sleep 3000
  
  If objItem.ShareName = "Microsoft XPS Document Writer" then
    objShell.Run "rundll32 printui.dll,PrintUIEntry /dl /n "Microsoft XPS Document Writer"
  End if
Next

 

[Butch12]

Das problem hat sich leider nicht gelöst! Nach dem Ausführen in DOS gibt er mir diese Fehlermeldung die ich unten aufgeführt habe. Vielleicht kannst du mir noch sagen wo ich Veränderungen vornehemen muss das es läuft.

Vielen Dank!!!

mfg Butch




C:\>strComputer = "."
Der Befehl "strComputer" ist entweder falsch geschrieben oder
konnte nicht gefunden werden.

C:\>Set objShell = CreateObject("Wscript.Shell")

C:\>Set objWMIService = GetObject ("winmgmts:\\" & strComputer & "\root\CIMV
2")
Der Befehl "strComputer" ist entweder falsch geschrieben oder
konnte nicht gefunden werden.
Das System kann den angegebenen Pfad nicht finden.

C:\>Set colItems = objWMIService.ExecQuery ("SELECT * FROM Win32_Printer")
"Each" ist syntaktisch an dieser Stelle nicht verarbeitbar.
C:\>For Each objItem In colItems
C:\>

 

[PraesidentEvil]

du musst das ganze in eine .vbs Datei speichern

Start->Ausführen->Notepad.exe <---rein mit dem Code speichern als .txt und dann umbennen

Was du gerade gemacht hast ist das ganze in Batch bzw. in einer DosBOX aber das ist vbscript

 

[seppjo]

als cmd

net use /delete \\printerout /yes

tut leider nicht nur wenn man all macht

Probier mal das:
http://de.wikipedia.org/wiki/Benutzer:Flow666/Knowledge

 

[seppjo]

Und jetzt die endgültige Version mit CON2PRT im CMD

Hier CON2PRT downloaden: http://www.ss64.com/nt/con2prt.html

CON2PRT /f

Getestet! Ist Funktionsfähig. Bisher bin ich an dem Programm fast nie vorbeigekommen wenn es um Drucker im CMD geht.

 

[PraesidentEvil]

cooles tool! thanks

 

[Bullayer]

@seppjo, das Teil ist klasse