Drucker entfernen und zuteilen VBS

[kalle10000 10]

Hi,

 

ich bin VBS Anfänger und ich komme schon mal wieder nicht weiter. Eigentlich total einfach. Ich würde gerne die Drucker, bevor ich sie zuteile, entfernen. Was habe ich vergessen oder falsch gemacht. Die Drucker zuweisen, wenn ich die ersten zeilen auskommentiere, funktioniert, das Entfernen leider noch nicht. Besten Dank im Voraus

 

Set WshNetwork = CreateObject("WScript.Network")


'Drucker1
WshNetwork.RemoveWindowsPrinterConnection "\\server\drucker1"

'Drucker2
WshNetwork.RemoveWindowsPrinterConnection "\\server\drucker2"

'Drucker3
WshNetwork.RemoveWindowsPrinterConnection "\\server\drucker3"
WshNetwork.SetDefaultPrinter "\\server\drucker3"



'Drucker1
'WshNetwork.AddWindowsPrinterConnection "\\server\drucker1"

'Drucker2
'WshNetwork.AddWindowsPrinterConnection "\\server\drucker2"

'Drucker3
'WshNetwork.AddWindowsPrinterConnection "\\server\drucker3"
'WshNetwork.SetDefaultPrinter "\\server\drucker3"

[kalle10000 10]

Set objNetwork = WScript.CreateObject("WScript.Network")

On Error Resume Next

objNetwork.RemovePrinterConnection "\\server\drucker"

 

So hat sich erledigt.