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...

Please also mark the comments that contributed to the solution of the article

Content-Key: 96017

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

Printed on: April 25, 2024 at 20:04 o'clock

2 Comments

Latest comment

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.

Moin

Das zum Thema elegant! Läuft prima.
Vielen Dank!

German solved Question Windows Server Microsoft

Hotly discussed

Check of ZFW Firewallgleixnerd - 5 Comments