Druckerverteilung
Hallo!
Gibt es auch eine Möglichkeit Drucker über Gruppenrichtlinien zu verteilen?
Danke im Voraus
V. K.
Gibt es auch eine Möglichkeit Drucker über Gruppenrichtlinien zu verteilen?
Danke im Voraus
V. K.
Please also mark the comments that contributed to the solution of the article
Content-Key: 5129
Url: https://administrator.de/contentid/5129
Printed on: May 4, 2024 at 15:05 o'clock
4 Comments
Latest comment
~~~~~~~~~~~~~
Option Explicit
On Error Resume Next
Dim WshNetwork, strPrintSRV
strPrintSRV = "DeinPrintServer"
Set WshNetwork = Wscript.CreateObject("Wscript.Network")
WshNetwork.RemovePrinterConnection "\\" & strPrintSRV & "\DruckerFreigabe1"
WshNetwork.AddWindowsPrinterConnection "\\" & strPrintSRV & "\DruckerFreigabe1"
WshNetwork.SetDefaultPrinter "\\" & strPrintSRV & "\DruckerFreigabe1"
Set WshNetwork = Nothing
strPrintSRV = ""
~~~~~~~~~~~~~
Das löschen der Drucker kann man, wenn es viele sind, evtl über EnumPrinterConnections und eine Schleife bewerkstelligen, das hab ich aber noch nicht getestet.
Alternativ gibt es das Tool con2prt.exe aus dem Resource Kit
Option Explicit
On Error Resume Next
Dim WshNetwork, strPrintSRV
strPrintSRV = "DeinPrintServer"
Set WshNetwork = Wscript.CreateObject("Wscript.Network")
WshNetwork.RemovePrinterConnection "\\" & strPrintSRV & "\DruckerFreigabe1"
WshNetwork.AddWindowsPrinterConnection "\\" & strPrintSRV & "\DruckerFreigabe1"
WshNetwork.SetDefaultPrinter "\\" & strPrintSRV & "\DruckerFreigabe1"
Set WshNetwork = Nothing
strPrintSRV = ""
~~~~~~~~~~~~~
Das löschen der Drucker kann man, wenn es viele sind, evtl über EnumPrinterConnections und eine Schleife bewerkstelligen, das hab ich aber noch nicht getestet.
Alternativ gibt es das Tool con2prt.exe aus dem Resource Kit