R5.11: Standard-Drucker wird nicht angesprochen

[fm71]

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