Jump to content

Script - Drucker als std. setzen


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

Hier ein Script in VB, um einen vorhandenen Drucker als Standarddrucker zu definieren:

 

' Script zum Rücksetzen des Standarddruckers für Windows NT und XP
'
' How to:
' Bitte in Zeile 11 den Druckernamen eintragen. Der entsprechende Drucker muss auf dem System schon installiert sein!
'Netzwerkdrucker bitte folgendermaßen eintragen: \\<Servername>\Druckername . z.B.: \\Meinedomain\MeinDrucker
'
'Variablebn definieren
Dim net
Dim defprinter
Dim copyright
defprinter = "\\<Server>\<printer>" ' <-- Hier den Druckernamen eintragen, Anführungsstriche stehen lassen.
copyright =  "Scriptversion  1.0, 01|2007," & VbCr & "Erstellt von Markus Kafurke"
Set net = CreateObject("WScript.Network")
net.SetDefaultPrinter defprinter
Set Shell = CreateObject("WScript.Shell")
Meldung = "Folgender Drucker wurde erfolgreich als Standarddrucker eingerichtet:  '" &VbCr & defprinter &"'"& VbCr & VbCr & copyright
Shell.Popup Meldung, 5, "Standarddrucker geändert", vbOKOnly + vbinformation

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...