Printer löschen wenn auf bestimmten Server

08/08/2008 - 14:15 von Hans Meier | Report spam
Hallo NG

Ich habe mir heute ein Script zusammengebastelt das eigenlich alle Drucker
die von einem bestimmten Printserver kommen löschen soll. Irgendwie geht es
aber nicht er akzeptiert meine IF Abfrage nicht.

Hat jemand den Durchblick:

Dim WshNetwork, oPrinters
Dim iLoop, iResult
Dim sPrinterName
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oPrinters = WshNetwork.EnumPrinterConnections

On Error Resume Next
For iLoop = 0 to oPrinters.Count - 1 Step 2
sPrinterName = oPrinters.Item(iLoop + 1)
if sPrinterName Like "\\olsserver*" Then
WshNetwork.RemovePrinterConnection sPrinterName
WScript.Echo "Printer " & sPrinterName & " deleted"
End If
Next

Danke & Gruss
 

Lesen sie die antworten

#1 Martin Resch
08/08/2008 - 17:47 | Warnen spam
Hallo Hans,
aber nicht er akzeptiert meine IF Abfrage nicht.

Hat jemand den Durchblick:


Ja.
if sPrinterName Like "\\olsserver*" Then


'Like' gibt's in vbs nicht.
if lcase(left(sprintername,11)) = "\\olsserver" Then..

sollte, falls ich mich nicht verzàhlt habe, das gewünschte tun.

Gruß
Martin

Ähnliche fragen