redzack
Goto Top

Freigabedrucker löschen via Script aber nur bestimmte

Hallo ich habe folgendes Script hier auf der Seite gefunden


 
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)  
Next

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

Content-ID: 145100

Url: https://administrator.de/contentid/145100

Ausgedruckt am: 26.11.2024 um 08:11 Uhr

redzack
redzack 18.06.2010 um 10:06:28 Uhr
Goto Top
Kein Scripter anwesend der mir da weiterhelfen kann?
bastla
bastla 19.06.2010 um 00:19:47 Uhr
Goto Top
Hallo redzack!
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 ... face-wink

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)  
Next
Grüße
bastla
redzack
redzack 24.06.2010 um 08:37:44 Uhr
Goto Top
vielen Dank du hast mir sehr weiter geholfen ;)