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é
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: 31595
Url: https://administrator.de/forum/wie-kann-ich-installierte-drucker-vom-printserver-auslesen-und-automatisch-auf-einem-terminalserver-31595.html
Ausgedruckt am: 24.12.2024 um 00:12 Uhr
3 Kommentare
Neuester Kommentar
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
