3
Wie kann ich Installierte Drucker vom Printserver auslesen und automatisch auf einem Terminalserver installieren
Hallo,
ich wollte ein VB Script erstellen, das die Drucker von unserem Printserver ausliest und per AddWindowsPrinterConnection auf einen Terminalserver installiert.
Hat einer von euch nee Idee wie man das Realisieren kann?
Danke im vorraus
Gruß René
ich wollte ein VB Script erstellen, das die Drucker von unserem Printserver ausliest und per AddWindowsPrinterConnection auf einen Terminalserver installiert.
Hat einer von euch nee Idee wie man das Realisieren kann?
Danke im vorraus
Gruß René
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 31595
Url: https://administrator.de/contentid/31595
Printed on: April 16, 2024 at 08:04 o'clock
3 Comments
Latest comment
Hallo René,
was möchtest du genau machen? Möchtest du über den Printserver drucken,
oder möchtest du die Drucker auf dem Terminalserver neu installieren?
Ansonsten kannst du mit diesem Skript die Drucker verbinden:
strDRUCKER = InputBox _
("Bitte Druckername eingeben:")
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection "\\PRINTSERVER\"& strDRUCKER &""
Wscript.Echo strDRUCKER & " ist eingerichtet."
Gruß
Christian
was möchtest du genau machen? Möchtest du über den Printserver drucken,
oder möchtest du die Drucker auf dem Terminalserver neu installieren?
Ansonsten kannst du mit diesem Skript die Drucker verbinden:
strDRUCKER = InputBox _
("Bitte Druckername eingeben:")
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection "\\PRINTSERVER\"& strDRUCKER &""
Wscript.Echo strDRUCKER & " ist eingerichtet."
Gruß
Christian
Hallo René,
was möchtest du genau machen?
Möchtest du über den Printserver
drucken,
oder möchtest du die Drucker auf dem
Terminalserver neu installieren?
Ansonsten kannst du mit diesem Skript die
Drucker verbinden:
strDRUCKER = InputBox _
("Bitte Druckername
eingeben:")
Set objNetwork =
CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection
"\\PRINTSERVER\"& strDRUCKER
&""
Wscript.Echo strDRUCKER & " ist
eingerichtet."
Gruß
Christian
was möchtest du genau machen?
Möchtest du über den Printserver
drucken,
oder möchtest du die Drucker auf dem
Terminalserver neu installieren?
Ansonsten kannst du mit diesem Skript die
Drucker verbinden:
strDRUCKER = InputBox _
("Bitte Druckername
eingeben:")
Set objNetwork =
CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection
"\\PRINTSERVER\"& strDRUCKER
&""
Wscript.Echo strDRUCKER & " ist
eingerichtet."
Gruß
Christian
Ich danke dir erstmal für die schnelle Antwort ,
leider habe ich nicht dazugeschrieben, dass pro Terminalserver ( 10 insgesamt ) über 100 Drucker angelegt oder Refresht werden müssen, meine bisherige lösung sieht so aus :
on error resume next
Set WshNetwork = WScript.CreateObject("WScript.Network")
PrinterPath = "\\reyprt\WEQSHPCO"
PrinterPath2 = "\\reyprt\QS2SW"
PrinterPath3 = "\\REYPRT\CanonWB"
PrinterPath4 = "\\REYPRT\dr1bu001"
usw.
WshNetwork.AddWindowsPrinterConnection PrinterPath, true, true
WshNetwork.AddWindowsPrinterConnection PrinterPath2, true, true
WshNetwork.AddWindowsPrinterConnection PrinterPath3, true, true
WshNetwork.AddWindowsPrinterConnection PrinterPath4, true, true
usw.
und ich wollte mir die Arbeit ersparen das Script immer anzupassen,
wenn ein neuer Drucker auf dem Printserver installiert wird.
Hi René,
wenn das so ist, dann löse dies doch ein Loginscript für den Terminalserver bzw. über Berechtigungsgruppen.
Gruß
Christian
wenn das so ist, dann löse dies doch ein Loginscript für den Terminalserver bzw. über Berechtigungsgruppen.
Gruß
Christian