3
Freigabedrucker löschen via Script aber nur bestimmte
Hallo ich habe folgendes Script hier auf der Seite gefunden
Das Script ist soweit ganz gut das es Netzwerkdrucker löscht jedoch habe ich zwei bis drei Drucker die nicht gelöscht werden dürfen am liebsten wäre es mir das ich nur drucker lösche die von einer DOmaine kommen um die von Hand verbundenen Drucker einer anderen Domaine nicht mit zu löschen.
Über Hinweise / Lösungsvorschläge die mich weiterbringen, würde ich mich freuen.
lg
redzack
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oPrinters = WshNetwork.EnumPrinterConnections
WScript.Echo "Network printer mappings:"
For i = 0 to oPrinters.Count - 1 Step 2
if Left(oPrinters.Item(i+1),2) = "\\" Then _
WScript.Echo "Port " & oPrinters.Item(i) & " = " & oPrinters.Item(i+1)
NextDas Script ist soweit ganz gut das es Netzwerkdrucker löscht jedoch habe ich zwei bis drei Drucker die nicht gelöscht werden dürfen am liebsten wäre es mir das ich nur drucker lösche die von einer DOmaine kommen um die von Hand verbundenen Drucker einer anderen Domaine nicht mit zu löschen.
Über Hinweise / Lösungsvorschläge die mich weiterbringen, würde ich mich freuen.
lg
redzack
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 145100
Url: https://administrator.de/contentid/145100
Printed on: April 19, 2024 at 06:04 o'clock
3 Comments
Latest comment
Kein Scripter anwesend der mir da weiterhelfen kann?
Hallo redzack!
Versuch es etwa so:
Grüße
bastla
Kein Scripter anwesend der mir da weiterhelfen kann?
Du weißt ja wohl, wie das so ist: Mal dauert's lang, dann wieder länger ... Versuch es etwa so:
Ausnahme = "#Drucker 1#Drucker 2#Drucker 3#"
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oPrinters = WshNetwork.EnumPrinterConnections
WScript.Echo "Network printer mappings:"
For i = 0 to oPrinters.Count - 1 Step 2
if InStr(Ausnahme, "#" & oPrinters.Item(i+1) & "#") = 0 Then _
WScript.Echo "Lösche Port " & oPrinters.Item(i) & " = " & oPrinters.Item(i+1)
Nextbastla
vielen Dank du hast mir sehr weiter geholfen ;)
