Das Notes Forum
Domino 9 und frühere Versionen => Administration & Userprobleme => Thema gestartet von: fm71 am 21.04.05 - 09:46:52
-
Hallo!
Vieleicht hat jemand eine Idee:
Beim Windows-Logon wird ein VB-Script ausgeführt, welches aus einer DB den jeweiligen Netzdrucker für den Arbeitsplatz ermittelt und auf Standard setzt:
Ausschnitt aus dem Script:
Sub druckerverbinden
Dim WshNetwork,Printerpfad,ergebnismengeprinter
Const SQLPrinter = "select printer from Printer where MID = "
Set WshNetwork = WScript.CreateObject("WScript.Network")
set ErgebnismengePrinter = ReadDatabase(SQLPrinter,fGetClientname)
wscript.echo "Drucker wird MID zugeordnet"
Do While not ErgebnismengePrinter.eof
wscript.echo "Standardprinter: " & ErgebnismengePrinter("Printer")
Printerpfad = ErgebnismengePrinter("Printer")
on error resume next
'Drucker verbinden
WshNetwork.AddWindowsPrinterConnection Printerpfad
'Drucker als Standard setzen
WshNetwork.SetDefaultPrinter Printerpfad
ErgebnismengePrinter.MoveNext
Loop
ErgebnismengePrinter.close
DBConnection.close
End SUB
Die Druckerzuordnung funktioniert prima, aus allen Anwendungen lässt sich sauber drucken, nur Notes zeigt den Drucker zwar korrekt an, druckt aber nicht. Erst einmaliges manuelles auswählen des Druckers in Notes läßt diesen auch drucken. Warum?Abhilfe?
Gruß Christoph