mit vb script
zB drucker.vbs
Option Explicit
Dim iErgebnis, Drucker, PrinterPath, PrinterDriver
Dim WshShell
Dim WSHNetwork
On Error Resume Next
Drucker = Inputbox("Geben Sie den Drucker ein: ")
Set WshNetwork = CreateObject("WScript.Network")
'Drucker löschen
for Zaehler = 1 to 41 step 1
PrinterPath = "\\server\drucker" & Zaehler
PrinterDriver = "HP LaserJet 4100 PCL 6"
WshNetwork.RemovePrinterConnection PrinterPath, PrinterDriver
next
'Drucker anlegen
PrinterPath = "\\server\drucker" & Drucker
PrinterDriver = "HP LaserJet 4100 PCL 6"
WshNetwork.AddwindowsPrinterConnection PrinterPath, PrinterDriver
WshNetwork.SetDefaultPrinter "\\server\drucker" & Drucker
Gruß
Fritzi