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"

[marka 584]

Löschen einer Printerconnection:

Set objNetwork = WScript.CreateObject("WScript.Network")
objNetwork.RemovePrinterConnection "\\PrintServer\xerox3006"

 

Erstellen einer Printerconnection und setzen des Standarddruckers:

 

Set WshNetwork = CreateObject("WScript.Network")

WshNetwork.AddWindowsPrinterConnection "\\PrintServer1\Xerox300"
WshNetwork.SetDefaultPrinter "\\PrintServer1\Xerox300"

[kalle10000 10]

Danke!