lokalen Drucker per Script als Standarddrucker einrichten

Hallo...

wir haben einige "Wechselarbeitsplätze" in der Firma und ich möchte vermeiden das die Kollegen nach jedem Anmelden den Standarddrucker auswählen müssen weil das direkt beim Drucken aus einer bestimmten Anwendung nicht möglich ist.

Bei Netzwerkdruckern ist das kein Problem aber die lokalen Drucker machen Probleme.

Hier mein Script:

If groupG.IsMember("LDAP://" & username) Then  
   net.AddWindowsPrinterConnection "\\LBX01\HPLJ1200"  
   net.SetDefaultPrinter "\\LBX01\HPLJ1200"  
   Select Case computer
      Case "KX2510"  
      prog.run "rundll32 printui.dll,PrintUIEntry /y /n " & """" & "Dell Laser Printer 1720dn" & """", 2, true  
      Case "KX2540"  
      prog.run "rundll32 printui.dll,PrintUIEntry /y /n " & """" & "Kyocera FS-1030D" & """", 2, true  
   End Select
End If

Das Script arbeitet nicht immer zuverlässig. Sieht jemand den Fehler? Kommt XP Prof. evtl. nicht damit klar wenn man "so schnell" nacheinander den Standarddrucker ändert? Geht das Ganze eleganter?
Bitte um Hilfe!

Vielen Dank im Voraus...

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 96017

Url: https://administrator.de/contentid/96017

Ausgedruckt am: 22.11.2024 um 19:11 Uhr

2 Kommentare

Neuester Kommentar

Moin Moin

Ich sehe zwar keinen Fehler, aber unser Skript läuft soweit "zuverlässig".

Const Druckername = "Brother HL"  
On Error Resume Next
Set Druckerobjekt = CreateObject("Wscript.Network")  
Druckerobjekt.SetDefaultPrinter Druckername

Gruß L.