Druckerscript

[Sternenkind 11]

Da ich beim heir suchen keins gefunden habe, poste ich mal jetzt wo ich eins habe, ein sehr gutes für die Allgemeinheit ;)

 

 

'----------------------------------------------------------

'Ausblenden eventueller Fehlermeldungen

'----------------------------------------------------------

on error resume next

'----------------------------------------------------------

'Instanzieren des Windows Scripting Hosts

'----------------------------------------------------------

Set Network = CreateObject("Wscript.Network")

 

'----------------------------------------------------------

'Löschen eventuell bestehender Printerconnections

'----------------------------------------------------------

For i = 0 To network.EnumPrinterConnections.Count - 1

On Error Resume Next

network.RemovePrinterConnection network.EnumPrinterConnections.Item(i)

Next

 

 

'Auslesen der ersten 5 Buchstaben des Computernamens

sPCName = UCase(Left(network.ComputerName, 6))

 

'Zuweisen der jeweiligen Drucker sowie des Defaultdruckers

Select Case sPCName

 

'-----------------------------------------------------------

'Bewerberbüro Drucker: PC24 lokal angeschlossen - Freigabename Bewerber -

'-----------------------------------------------------------

 

Case "PC001"

PrinterShare = "\\server-tzl\Drucker"

network.AddWindowsPrinterConnection PrinterShare

network.SetDefaultPrinter PrinterShare

 

Case "PC002"

PrinterShare = "\\server-tzl\Drucker"

network.AddWindowsPrinterConnection PrinterShare

network.SetDefaultPrinter PrinterShare

 

Case "PC003"

PrinterShare = "\\server-tzl\Drucker"

network.AddWindowsPrinterConnection PrinterShare

network.SetDefaultPrinter PrinterShare

 

Case "PC004"

PrinterShare = "\\server-tzl\Drucker"

network.AddWindowsPrinterConnection PrinterShare

network.SetDefaultPrinter PrinterShare

 

End Select