-->
Drucken
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!
Select Case wshNetwork.ComputerNameCase "Name des PC´s" user_logon("\\Name der
Domäne\Druckername")
End Select
Rem Die Funktion user_logon installiert den jeweiligen Drucker
Function user_logon(PrinterPath)
WshNetwork.AddWindowsPrinterConnection PrinterPath, "PrinterDriver"
WshNetwork.SetDefaultPrinter PrinterPath
End Function
--- Andere Möglichkeit ---
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Variablen definieren
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim WSHNetwork
Dim WSHShell
Dim Ver
Set WSHNetwork = Wscript.CreateObject("Wscript.Network")
Set WSHShell = Wscript.CreateObject("Wscript.Shell")
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Server Definitionen
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim Server01
Server01 = "\\Servername01\"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Printer Definitionen
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim HP5_EDV
HPLJ5_EDV = Server01 + "hplj5-edv"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Printers
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
WshNetwork.AddWindowsPrinterConnection HPLJ5_EDV
WshNetwork.AddWindowsPrinterConnection HPLJ5_DPLX_EDV
--- Andere Möglichkeit ---
Set WshNetwork = WScript.CreateObject("WScript.Network")
PrinterPath = "\\research\library1"
WshNetwork.AddWindowsPrinterConnection PrinterPath
WshNetwork.SetDefaultPrinter PrinterPath
|