6
VBS - Drucker von Printserver via Script installieren
Hier zwei kleine Scripte zum installieren bzw. deinstallieren von Druckern, welche über einen Printserver bereitgestellt werden.
Drucker installieren:
Drucker deinstallieren:
Viel Spaß beim Drucker installieren.
Drucker installieren:
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection "\\PRINTSERVERNAME\DRUCKERNAME"
strDefaultPrinter = MsgBox("Set Printer DRUCKERNAME as default printer ?",vbYesNo + vbQuestion,"Default Printer...")
If strDefaultPrinter = vbYes Then
objNetwork.SetDefaultPrinter "\\PRINTSERVERNAME\DRUCKERNAME"
End If
wscript.echo "DRUCKERNAME" & vbCrlf & "Printer successfully installed"
wscript.QuitDrucker deinstallieren:
Set objNetwork = CreateObject("WScript.Network")
objNetwork.RemovePrinterConnection "\\PRINTSERVERNAME\DRUCKERNAME"
wscript.echo "DRUCKERNAME" & vbCrlf & "Printer successfully uninstalled"
wscript.QuitViel Spaß beim Drucker installieren.
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 122186
Url: https://administrator.de/knowledge/vbs-drucker-von-printserver-via-script-installieren-122186.html
Ausgedruckt am: 24.12.2024 um 12:12 Uhr
6 Kommentare
Neuester Kommentar
Hallo DevTig und willkommen im Forum!
Wenn in einem Script viermal eine Konstante ("DRUCKERNAME") vorkommt, wäre es empfehlenswert, diese auch als solche (oder auch als Variable) einzusetzen - macht's auf jeden Fall leichter wartbar.
Falls tatsächlich eine Rückfrage hinsichtlich "Default Printer" gewünscht ist, wäre diese vermutlich sinnvoller per "Popup" zu realisieren.
Zum "wscript.Quit" in der jeweils letzten Zeile: Was sollte denn das Script anderes tun als sich zu verabschieden? Insofern an dieser Stelle entbehrlich.
Grüße
bastla
Wenn in einem Script viermal eine Konstante ("DRUCKERNAME") vorkommt, wäre es empfehlenswert, diese auch als solche (oder auch als Variable) einzusetzen - macht's auf jeden Fall leichter wartbar.
Falls tatsächlich eine Rückfrage hinsichtlich "Default Printer" gewünscht ist, wäre diese vermutlich sinnvoller per "Popup" zu realisieren.
Zum "wscript.Quit" in der jeweils letzten Zeile: Was sollte denn das Script anderes tun als sich zu verabschieden? Insofern an dieser Stelle entbehrlich.
Grüße
bastla
Hi bastla,
erst mal Danke für das freundliche Willkommen.
Aber nun zum eigentlichen...
Die Variable ("DRUCKERNAME") zu setzen ist wie Du erwähnt hast wirklich sinnvoll.
Ebenso könnte man(n) - Frau auch - die Variable ("PRINTSERVERNAME") setzen.
Zum "Popup" - die MsgBox ist ist in diesem Fall ein "Popup" - siehe "strDefaultPrinter = MsgBox("Set Printer...." .
Und nun zum letzten Punkt. Ein explizites "WScript.Quit" kann auch bei selbst beendenden Scripts sinnvoll sein, da es schon vorgekommen sein soll, das Scripte keinen Ausstiegspunkt gefunden haben.
Aber alles in allem sollen diese Scriptbeispiele nur das sein was sie sind - Beispiele, welche auch von Script-Einsteigern verstanden werden sollen.
Sonnige Grüße
DevTig
erst mal Danke für das freundliche Willkommen.
Aber nun zum eigentlichen...
Die Variable ("DRUCKERNAME") zu setzen ist wie Du erwähnt hast wirklich sinnvoll.
Ebenso könnte man(n) - Frau auch - die Variable ("PRINTSERVERNAME") setzen.
Zum "Popup" - die MsgBox ist ist in diesem Fall ein "Popup" - siehe "strDefaultPrinter = MsgBox("Set Printer...." .
Und nun zum letzten Punkt. Ein explizites "WScript.Quit" kann auch bei selbst beendenden Scripts sinnvoll sein, da es schon vorgekommen sein soll, das Scripte keinen Ausstiegspunkt gefunden haben.
Aber alles in allem sollen diese Scriptbeispiele nur das sein was sie sind - Beispiele, welche auch von Script-Einsteigern verstanden werden sollen.
Sonnige Grüße
DevTig
Hallo DevTig!
"Popup" (mittlerweile mit Link
) unterscheidet sich von einer "MsgBox" durch die Möglichkeit, nach Zeitablauf das Script fortzusetzen - bei Automatisierung (und darum geht es hier ja) sicherlich ein wichtiger Faktor ...
Grüße
bastla
"Popup" (mittlerweile mit Link
) unterscheidet sich von einer "MsgBox" durch die Möglichkeit, nach Zeitablauf das Script fortzusetzen - bei Automatisierung (und darum geht es hier ja) sicherlich ein wichtiger Faktor ...Aber alles in allem sollen diese Scriptbeispiele nur das sein was sie sind - Beispiele, welche auch von Script-Einsteigern verstanden werden sollen.
Kein Einwand - aber zumindest Punkt 1 sollte auch einem Einsteiger zumutbar sein ...Grüße
bastla
@bastla:
Danke für die Idee.
Hier die Variante für die automatisierte Installation mit Popup.
Ansonsten kenne ich es so das ein Stockwerks oder Abteilungsdrucker direkt als Standard definiert wird, und das entsprechend ohne Abfrage gescripted wird.
Viel Spaß beim weiterentwickeln der Scripte.
Mit sonnigen Grüßen
Devtig
Danke für die Idee.
Hier die Variante für die automatisierte Installation mit Popup.
strPrinterName = "DRUCKERNAME"
strServerName = "PRINTSERVERNAME"
Set objShell = CreateObject("WScript.Shell")
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection "\\" & strServerName & "\" & strPrinterName
strDefaultPrinter = objShell.Popup("Set Printer " & strPrinterName & " as default printer ?",5,"Default Printer...", 4 + 32)
If strDefaultPrinter = vbYes Then
objNetwork.SetDefaultPrinter "\\" & strServerName & "\" & strPrinterName
End If
wscript.QuitAnsonsten kenne ich es so das ein Stockwerks oder Abteilungsdrucker direkt als Standard definiert wird, und das entsprechend ohne Abfrage gescripted wird.
Viel Spaß beim weiterentwickeln der Scripte.
Mit sonnigen Grüßen
Devtig
@DevTig
Grüße
bastla
Ansonsten kenne ich es so das ein Stockwerks oder Abteilungsdrucker direkt als Standard definiert wird, und das entsprechend ohne Abfrage gescripted wird.
Deswegen auch meine Anmerkung oben ("Falls tatsächlich eine Rückfrage ...") ...Grüße
bastla
Hallo zusammen,
ich finde Euer Skript sehr gut und will es gerne einsetzen. Wir haben allerdings vier Stockwerksdrucker mit unterschiedlichen Druckername.
Kann man vorher eine Dropdownliste zur Auswahl des Stockwerks aufnehmen, um dann den richtigen Drucker zu installieren?
ich finde Euer Skript sehr gut und will es gerne einsetzen. Wir haben allerdings vier Stockwerksdrucker mit unterschiedlichen Druckername.
Kann man vorher eine Dropdownliste zur Auswahl des Stockwerks aufnehmen, um dann den richtigen Drucker zu installieren?
