Druckerstandarts löschen

[weezle]

Hi liebe Leute,


ich will das unsere Drucker automatisch vom Rechnernamen her
ihre Drúcker -Standarts zugewiesen bekommen.


Danke schonmal im vorraus für eure Antworten...

Mfg
weezle


Die unten zugewiesenen Drucker müssen deinstalliert/gelöscht werden
bevor Sie als Standart definiert werden.

Als Beispiel das Script in VB, das 99%tig läuft...



VBScript das beim Logon ausgeführt wird:


Rem Anmeldeskript mit Druckerzuweisung


Rem Erzeugen der benötigten Objekte

Set WshNetwork = CreateObject("WScript.Network")
Set FileSysObj = CreateObject("Scripting.FileSystemObject")


Rem Abfragen des Computernamens und Aufrufen der
Rem Funktion user_logon
Rem Der Funktion wird der UNC-Pfad des Druckers
Rem übergeben, der installiert werden soll!


Hier müssen die Drucker gelöscht werden bevor die neuen als Standard definiert werden

Select Case WshNetwork.ComputerName

Case "r16-01" user_logon("\\daakhk\Raum16 HL 1260e auf daakhk")
Case "r16-02" user_logon("\\daakhk\Raum16 HL 1260e auf daakhk")
Case "r16-03" user_logon("\\daakhk\Raum16 HL 1260e auf daakhk")
Case "r16-04" user_logon("\\daakhk\Raum16 HL 1260e auf daakhk")
Case "r16-05" user_logon("\\daakhk\Raum16 HL 1260e auf daakhk")
Case "r16-06" user_logon("\\daakhk\Raum16 HL 1260e auf daakhk")
Case "r16-07" user_logon("\\daakhk\Raum16 HL 1260e auf daakhk")
Case "r16-08" user_logon("\\daakhk\Raum16 HL 1260e auf daakhk")
Case "r16-09" user_logon("\\daakhk\Raum16 HL 1260e auf daakhk")
Case "r16-10" user_logon("\\daakhk\Raum16 HL 1260e auf daakhk")
Case "r16-11" user_logon("\\daakhk\Raum16 HL 1260e auf daakhk")
Case "r16-12" user_logon("\\daakhk\Raum16 HL 1260e auf daakhk")
Case "r16-13" user_logon("\\daakhk\Raum16 HL 1260e auf daakhk")
Case "r16-14" user_logon("\\daakhk\Raum16 HL 1260e auf daakhk")
Case "r16-15" user_logon("\\daakhk\Raum16 HL 1260e auf daakhk")
Case "r16-16" user_logon("\\daakhk\Raum16 HL 1260e auf daakhk")
Case "r16-17" user_logon("\\daakhk\Raum16 HL 1260e auf daakhk")
Case "r16-18" user_logon("\\daakhk\Raum16 HL 1260e auf daakhk")
Case "r16-19" user_logon("\\daakhk\Raum16 HL 1260e auf daakhk")
Case "r16-20" user_logon("\\daakhk\Raum16 HL 1260e auf daakhk")
Case "r16-21" user_logon("\\daakhk\Raum16 HL 1260e auf daakhk")
Case "r16-22" user_logon("\\daakhk\Raum16 HL 1260e auf daakhk")
Case "r16-23" user_logon("\\daakhk\Raum16 HL 1260e auf daakhk")
Case "r16-24" user_logon("\\daakhk\Raum16 HL 1260e auf daakhk")
Case "r16-25" user_logon("\\daakhk\Raum16 HL 1260e auf daakhk")

End Select

Select Case WshNetwork.ComputerName

Case "r05-01" user_logon("\\daanav\Kyocera Mita FS-1900 KX")
Case "r05-02" user_logon("\\daanav\Kyocera Mita FS-1900 KX")
Case "r05-03" user_logon("\\daanav\Kyocera Mita FS-1900 KX")
Case "r05-04" user_logon("\\daanav\Kyocera Mita FS-1900 KX")
Case "r05-05" user_logon("\\daanav\Kyocera Mita FS-1900 KX")
Case "r05-06" user_logon("\\daanav\Kyocera Mita FS-1900 KX")
Case "r05-07" user_logon("\\daanav\Kyocera Mita FS-1900 KX")
Case "r05-08" user_logon("\\daanav\Kyocera Mita FS-1900 KX")
Case "r05-09" user_logon("\\daanav\Kyocera Mita FS-1900 KX")
Case "r05-10" user_logon("\\daanav\Kyocera Mita FS-1900 KX")
Case "r05-11" user_logon("\\daanav\Kyocera Mita FS-1900 KX")
Case "r05-12" user_logon("\\daanav\Kyocera Mita FS-1900 KX")
Case "r05-13" user_logon("\\daanav\Kyocera Mita FS-1900 KX")
Case "r05-14" user_logon("\\daanav\Kyocera Mita FS-1900 KX")
Case "r05-15" user_logon("\\daanav\Kyocera Mita FS-1900 KX")
Case "r05-16" user_logon("\\daanav\Kyocera Mita FS-1900 KX")
Case "r05-17" user_logon("\\daanav\Kyocera Mita FS-1900 KX")
Case "r05-18" user_logon("\\daanav\Kyocera Mita FS-1900 KX")
Case "r05-19" user_logon("\\daanav\Kyocera Mita FS-1900 KX")
Case "r05-20" user_logon("\\daanav\Kyocera Mita FS-1900 KX")
Case "r05-21" user_logon("\\daanav\Kyocera Mita FS-1900 KX")
Case "r05-22" user_logon("\\daanav\Kyocera Mita FS-1900 KX")
Case "r05-23" user_logon("\\daanav\Kyocera Mita FS-1900 KX")
Case "r05-24" user_logon("\\daanav\Kyocera Mita FS-1900 KX")
Case "r05-25" user_logon("\\daanav\Kyocera Mita FS-1900 KX")

End Select

Rem Ausgabe von Meldungen mit einer Message-Box

MsgBox "Drucker wurde automatisch zugewiesen. "

Rem Die Funktion user_logon installiert den jeweiligen Drucker

Function user_logon(PrinterPath)

WshNetwork.AddWindowsPrinterConnection PrinterPath, "PrinterDriver"
WshNetwork.SetDefaultPrinter PrinterPath

End Function