Druckerzuweisung und löschen von bestehende Drucker

Die Benutzer melden sich an einem XP Prof an. Skript funktioniert teilweise sprich Drucker hinzufügen geht aber bestehende löschen geht nicht.

Hallo,

habe folgendes Problem: Die Benutzer melden sich an einem XP Prof an. Das Anmeldeskript liegt auf einem W2K Server.

Das Skript funktioniert teilweise sprich Drucker hinzufügen geht aber bestehende löschen geht nicht. (Wenn ich Admin bin aber schon)
Das Skript sieht wie folgt aus:

'----------------------------------------------------------
'Ausblenden eventueller Fehlermeldungen
'----------------------------------------------------------
on error resume next
'----------------------------------------------------------
'Instanzieren des Windows Scripting Hosts
'----------------------------------------------------------
Set Network = CreateObject("Wscript.Network")

'----------------------------------------------------------
'Löschen eventuell bestehender Printerconnections
'----------------------------------------------------------
For i = 0 To network.EnumPrinterConnections.Count - 1
On Error Resume Next
network.RemovePrinterConnection network.EnumPrinterConnections.Item(i)
Next
'----------------------------------------------------------
'Auslesen der ersten 4 Buchstaben des Computernamens
'----------------------------------------------------------
sPCName = UCase(Left(network.ComputerName, 4))
'----------------------------------------------------------
'Zuweisen der jeweiligen Drucker sowie des Defaultdruckers
'----------------------------------------------------------
Select Case sPCName
Case "PC01"
PrinterShare = "\\ITMain\Raum1Color"
network.AddWindowsPrinterConnection PrinterShare
PrinterShare = "\\ITMain\Raum_1_Laser"
network.AddWindowsPrinterConnection PrinterShare
network.SetDefaultPrinter PrinterShare
Case "PC02"
PrinterShare = "\\ITMain\Raum1Color"
network.AddWindowsPrinterConnection PrinterShare
PrinterShare = "\\ITMain\Raum_2"
network.AddWindowsPrinterConnection PrinterShare
network.SetDefaultPrinter PrinterShare
Case "PC03"
PrinterShare = "\\ITMain\Raum1Color"
network.AddWindowsPrinterConnection PrinterShare
PrinterShare = "\\ITMain\Raum_3"
network.AddWindowsPrinterConnection PrinterShare
network.SetDefaultPrinter PrinterShare
End Select

Wer kann helfen?

Skol