Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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
GELÖST

Neuen Drucker installieren als Kopie von einem bestehenden Drucker

Frage Entwicklung Batch & Shell

Mitglied: joni2000de

joni2000de (Level 1) - Jetzt verbinden

30.06.2011 um 14:39 Uhr, 4378 Aufrufe, 3 Kommentare

Hallo Admins,

ich sollte 30 baugleiche Drucker auf einem Druckerserver installieren. Den ersten habe ich händisch installiert und alle Einstellungen so vorgenommen wie ich sie brauche. Jetzt wäre es fein wenn ich diesen Drucker kopierern könnte und 29 mal wieder einfügen. Der Unterschied bei den Druckern ist jeweils die IP-Adresse (die neuen IP-Anschlüsse sind noch nicht vorhanden), der Druckername und der Druckerfreigabename. Gibt es da eine Möglichkeit das einfach zu bewerkstelligen. Die Installation auf den Clients ist dann kein Problem.

Danke für eure Hilfe.

Gruß Joni
Mitglied: 60730
30.06.2011 um 16:18 Uhr
moin,

ehrlich für 30 identische Drucker - bei denen "nur" die Ip; der Name und die Freigabe anders ist - rentiert sich das nicht.

Bei 300 eher. (und ja ich weiß auch wie)

Bedenke - egal wer dir hier was schreibt - testen mußt du es und für 30 Drucker würd ich mir ne rothaarige Praktikantin ausleihen.

Gruß
Bitte warten ..
Mitglied: colinardo
30.06.2011 um 17:35 Uhr
Lege eine *.csv-Datei in folgender Formatierung an, trage deine Druckerinfos dort ein und speichere sie z.B. unter c:\druckerinfos.csv:
(Wichtig ist das der Treibername exakt so eingetragen wird wie er in den Druckereigenschaften steht)
01.
"Name Drucker 1","hp LaserJet 1320 PCL 6","192.168.1.14","Comment 1","Location 1","ShareName 1" 
02.
"Name Drucker 2","hp LaserJet 1320 PCL 6","192.168.1.15","Comment 2","Location 2","ShareName 2"
Dann legst du folgendes VBS-Script in einem Editor an:
(Den Pfad zur csv-Datei kannst du am Anfang in der Variablen printerInfoPath hinterlegen)
01.
dim printerInfoPath = "c:\druckerinfos.csv" 
02.
set objFS = Wscript.CreateObject("Scripting.FileSystemObject") 
03.
set printerInfos = objFS.OpenTextFile(printerInfoPath,1) 
04.
strComputer = "." 
05.
Set objWMIService = GetObject("winmgmts:" _ 
06.
	   & "{impersonationLevel=impersonate,(LoadDriver)}!\\" & strComputer & "\root\cimv2") 
07.
 
08.
Do While printerInfos.AtEndOfStream <> True 
09.
      printerDetails = printerInfos.ReadLine 
10.
      if printerDetails <> "" then 
11.
      	printerDetails = Replace(printerDetails,chr(34),"") 
12.
      	printerDetails = Split(printerDetails,",") 
13.
      	strName = printerDetails(0) 
14.
				strDriver = printerDetails(1) 
15.
				strPort = printerDetails(2) 
16.
				strComment = printerDetails(3) 
17.
				strLocation = printerDetails(4) 
18.
				strShareName = printerDetails(5) 
19.
				 
20.
				Set objNewPort = objWMIService.Get("Win32_TCPIPPrinterPort").SpawnInstance_ 
21.
				objNewPort.Name = "IP_" & strPort 
22.
				objNewPort.Protocol = 1 
23.
				objNewPort.HostAddress = strPort 
24.
				objNewPort.PortNumber = "9100" 
25.
				objNewPort.SNMPEnabled = False 
26.
				objNewPort.Put_ 
27.
				 
28.
				Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_ 
29.
				objPrinter.DriverName = strDriver 
30.
				objPrinter.PortName = "IP_" & strPort 
31.
				objPrinter.DeviceID = strName 
32.
				objPrinter.Location = strLocation 
33.
				objPrinter.Comment = strComment 
34.
				objPrinter.Network = true 
35.
				objPrinter.Shared = true 
36.
				objPrinter.ShareName = strShareName 
37.
				objPrinter.Put_ 
38.
   		end if 
39.
Loop 
40.
printerInfos.close 
41.
 
Hinweis: Die entsprechenden Ports dürfen noch nicht existieren...

Grüße Uwe
Bitte warten ..
Mitglied: joni2000de
01.07.2011 um 16:39 Uhr
Hi Uwe,
hat perfekt funktioniert. Danke!
Gruß Joni
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
gelöst Access 2016 installieren bei bestehenden Home and Business 2016 (4)

Frage von Huibuh2010 zum Thema Microsoft Office ...

Drucker und Scanner
gelöst HP Drucker Treiber lokal installieren ohne Drucker (9)

Frage von Eduuaard zum Thema Drucker und Scanner ...

Exchange Server
gelöst Exchange 2010 Standard auf neuen Server 2016 installieren? (9)

Frage von zeroblue2005 zum Thema Exchange Server ...

Neue Wissensbeiträge
Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(2)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Windows 10

Das Windows 10 Creators Update ist auf dem Weg

(5)

Anleitung von BassFishFox zum Thema Windows 10 ...

Administrator.de Feedback

Tipp: Ungelöste Fragen ohne Antwort in Tickeransicht farblich hinterlegen

Tipp von pattern zum Thema Administrator.de Feedback ...

Viren und Trojaner

Neue Magazin Ausgabe: Malware und Angriffe abwehren

Information von Frank zum Thema Viren und Trojaner ...

Heiß diskutierte Inhalte
Windows Systemdateien
Warum System auf "C:" (29)

Frage von DzumoPRO zum Thema Windows Systemdateien ...

LAN, WAN, Wireless
Cisco SG200: Auf bestimmtem vLAN bestimmte TCP-Ports sperren (16)

Frage von SarekHL zum Thema LAN, WAN, Wireless ...

Windows Server
gelöst Update BackupExec 2015 auf 2016 führt zu SQL-Server Problem (16)

Frage von montylein1981 zum Thema Windows Server ...

Cloud-Dienste
gelöst Bitcoins minen über Nacht? (16)

Frage von 1410640014 zum Thema Cloud-Dienste ...