Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

VBS - Drucker von Printserver via Script installieren

Mitglied: DevTig

DevTig (Level 1) - Jetzt verbinden

06.08.2009, aktualisiert 14:03 Uhr, 15878 Aufrufe, 6 Kommentare, 3 Danke

Hier zwei kleine Scripte zum installieren bzw. deinstallieren von Druckern, welche über einen Printserver bereitgestellt werden.

Drucker installieren:
01.
Set objNetwork = CreateObject("WScript.Network") 
02.
	objNetwork.AddWindowsPrinterConnection "\\PRINTSERVERNAME\DRUCKERNAME" 
03.
 
04.
	strDefaultPrinter = MsgBox("Set Printer DRUCKERNAME as default printer ?",vbYesNo + vbQuestion,"Default Printer...") 
05.
	If strDefaultPrinter = vbYes Then 
06.
		objNetwork.SetDefaultPrinter "\\PRINTSERVERNAME\DRUCKERNAME" 
07.
	End If 
08.
 
09.
wscript.echo "DRUCKERNAME" & vbCrlf & "Printer successfully installed" 
10.
wscript.Quit
Drucker deinstallieren:
01.
Set objNetwork = CreateObject("WScript.Network") 
02.
	objNetwork.RemovePrinterConnection "\\PRINTSERVERNAME\DRUCKERNAME" 
03.
 
04.
wscript.echo "DRUCKERNAME" & vbCrlf & "Printer successfully uninstalled" 
05.
wscript.Quit
Viel Spaß beim Drucker installieren.
Mitglied: bastla
06.08.2009 um 14:34 Uhr
Hallo DevTig und willkommen im Forum!

Wenn in einem Script viermal eine Konstante ("DRUCKERNAME") vorkommt, wäre es empfehlenswert, diese auch als solche (oder auch als Variable) einzusetzen - macht's auf jeden Fall leichter wartbar.
Falls tatsächlich eine Rückfrage hinsichtlich "Default Printer" gewünscht ist, wäre diese vermutlich sinnvoller per "Popup" zu realisieren.
Zum "wscript.Quit" in der jeweils letzten Zeile: Was sollte denn das Script anderes tun als sich zu verabschieden? Insofern an dieser Stelle entbehrlich.

Grüße
bastla
Bitte warten ..
Mitglied: DevTig
06.08.2009 um 14:51 Uhr
Hi bastla,

erst mal Danke für das freundliche Willkommen.

Aber nun zum eigentlichen...

Die Variable ("DRUCKERNAME") zu setzen ist wie Du erwähnt hast wirklich sinnvoll.
Ebenso könnte man(n) - Frau auch - die Variable ("PRINTSERVERNAME") setzen.

Zum "Popup" - die MsgBox ist ist in diesem Fall ein "Popup" - siehe "strDefaultPrinter = MsgBox("Set Printer...." .

Und nun zum letzten Punkt. Ein explizites "WScript.Quit" kann auch bei selbst beendenden Scripts sinnvoll sein, da es schon vorgekommen sein soll, das Scripte keinen Ausstiegspunkt gefunden haben.

Aber alles in allem sollen diese Scriptbeispiele nur das sein was sie sind - Beispiele, welche auch von Script-Einsteigern verstanden werden sollen.

Sonnige Grüße

DevTig
Bitte warten ..
Mitglied: bastla
06.08.2009 um 14:54 Uhr
Hallo DevTig!

"Popup" (mittlerweile mit Link ) unterscheidet sich von einer "MsgBox" durch die Möglichkeit, nach Zeitablauf das Script fortzusetzen - bei Automatisierung (und darum geht es hier ja) sicherlich ein wichtiger Faktor ...

Aber alles in allem sollen diese Scriptbeispiele nur das sein was sie sind - Beispiele, welche auch von Script-Einsteigern verstanden werden sollen.
Kein Einwand - aber zumindest Punkt 1 sollte auch einem Einsteiger zumutbar sein ...

Grüße
bastla
Bitte warten ..
Mitglied: DevTig
06.08.2009 um 17:05 Uhr
@bastla:
Danke für die Idee.

Hier die Variante für die automatisierte Installation mit Popup.

01.
strPrinterName = "DRUCKERNAME" 
02.
strServerName = "PRINTSERVERNAME" 
03.
 
04.
Set objShell = CreateObject("WScript.Shell") 
05.
Set objNetwork = CreateObject("WScript.Network") 
06.
	objNetwork.AddWindowsPrinterConnection "\\" & strServerName & "\" & strPrinterName 
07.
 
08.
	strDefaultPrinter = objShell.Popup("Set Printer " & strPrinterName & " as default printer ?",5,"Default Printer...", 4 + 32) 
09.
	If strDefaultPrinter = vbYes Then  
10.
		objNetwork.SetDefaultPrinter "\\" & strServerName & "\" & strPrinterName 
11.
	End If 	 
12.
 
13.
wscript.Quit
Ansonsten kenne ich es so das ein Stockwerks oder Abteilungsdrucker direkt als Standard definiert wird, und das entsprechend ohne Abfrage gescripted wird.

Viel Spaß beim weiterentwickeln der Scripte.

Mit sonnigen Grüßen
Devtig
Bitte warten ..
Mitglied: bastla
06.08.2009 um 19:18 Uhr
@DevTig
Ansonsten kenne ich es so das ein Stockwerks oder Abteilungsdrucker direkt als Standard definiert wird, und das entsprechend ohne Abfrage gescripted wird.
Deswegen auch meine Anmerkung oben ("Falls tatsächlich eine Rückfrage ...") ...

Grüße
bastla
Bitte warten ..
Mitglied: tobit-dlg
17.01.2017 um 10:20 Uhr
Hallo zusammen,

ich finde Euer Skript sehr gut und will es gerne einsetzen. Wir haben allerdings vier Stockwerksdrucker mit unterschiedlichen Druckername.

Kann man vorher eine Dropdownliste zur Auswahl des Stockwerks aufnehmen, um dann den richtigen Drucker zu installieren?
Bitte warten ..
Ähnliche Inhalte
Basic

Visual Basic Script (VBS): HTML-Tabelle generieren

Tipp von GurkenhobelBasic3 Kommentare

Für all jene, die schnell mal eine simple HTML-Tabelle benötigen, ist das folgende Skript gedacht. Der Name der fertigen ...

RedHat, CentOS, Fedora

Steam für Fedora installieren

Tipp von FrankRedHat, CentOS, Fedora6 Kommentare

Da es für Steam hauptsächlich eine Ubuntu Installationsdatei (latest_steam.deb) gibt, hier eine sehr einfache Methode, um Steam auch unter ...

RedHat, CentOS, Fedora

Spotify Client für Fedora installieren

Tipp von FrankRedHat, CentOS, Fedora

Da Spotify bisher nur ein Debian/Ubuntu Repository für seinen Linux-Client anbietet, hier nun eine sehr einfache Methode, den neuesten ...

RedHat, CentOS, Fedora

Powerline für Fedora installieren

Anleitung von FrankRedHat, CentOS, Fedora1 Kommentar

Powerline ist eine sehr praktische optische Erweiterung für vim und der Linux Shell (bash, zsh, tmux, IPython, Awesome und ...

Neue Wissensbeiträge
Internet

Europa baut Zensurinfrastruktur auf: EU-Parlament stimmt für Upload-Filter, Leistungsschutzrecht und gegen KI-Forschung

Information von Frank vor 1 TagInternet9 Kommentare

Eine sehr schlechte Entscheidungen für die Zukunft Europas ist gefallen: Der Rechtsausschuss im EU-Parlament stimmte heute morgen in einer ...

Windows 10

Mikrofon von Headset geht nach Update auf Windows 10 1803 nicht mehr

Tipp von Deepsys vor 3 TagenWindows 102 Kommentare

Ich verwende ein Plantronics Headset das per USB mit dem Windows 10 PC verbunden ist. Damit kann ich auch ...

Video & Streaming

Ruckelfreies Fernsehen auf Smartphone oder Tablet - in SD oder gar HD - Eine Alternative zum Fritz DVB-C Receiver

Anleitung von power-user vor 4 TagenVideo & Streaming9 Kommentare

Wer kennt das nicht: Man möchte gemütlich auf dem Balkon sitzen und vielleicht grillen und dabei das WM-Spiel gucken ...

Erkennung und -Abwehr
Trendmicro WFBS 10 ist in deutsch verfügbar!
Tipp von VGem-e vor 4 TagenErkennung und -Abwehr4 Kommentare

Servus Kollegen, downloadbar unter

Heiß diskutierte Inhalte
Windows 7
Windows 7 Benutzer wechsel nicht möglich
gelöst Frage von OSelbeckWindows 727 Kommentare

Hallo, ich habe hier einen Windows 7 Rechner, der in der Domäne war. Jetzt passiert beim starten, das ich ...

Windows Netzwerk
IP-Adresskonflikt
Frage von Turbo-MasterWindows Netzwerk24 Kommentare

Hallo zusammen, ich habe ein Problem mit unserem Netzwerk unter Windows Server. Ständig erhalten wir die Meldung, dass ein ...

Batch & Shell
Batch Datei für Dateinamen
gelöst Frage von Sabi75Batch & Shell19 Kommentare

Hallo zusammen, ich bräuchte mal eure Hilfe. Ich nutze einen Windows 7 PC und ein Apple Ipad wenn ich ...

Festplatten, SSD, Raid
RAID auflösen Synology DS213j!
gelöst Frage von Hendrik2586Festplatten, SSD, Raid19 Kommentare

Guten Morgen meine Lieben! :) Diese Frage wird sich sicherlich schon der ein oder andere gestellt haben. Es geht ...