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, 4400 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
Drucker und Scanner
gelöst HP Drucker Treiber lokal installieren ohne Drucker (9)

Frage von Eduuaard zum Thema Drucker und Scanner ...

Microsoft
gelöst Drucker Über Powershell installieren (13)

Frage von Asker06 zum Thema Microsoft ...

Batch & Shell
gelöst Drucker über Shell-Batch installieren (3)

Frage von Ray00731 zum Thema Batch & Shell ...

Windows Server
Suchort neuer NW-Drucker Windows (4)

Frage von cse zum Thema Windows Server ...

Neue Wissensbeiträge
Windows Tools

Zeit für Energiesparmodus, Bildschirmabschaltung etc. schnell anpassen

Anleitung von hannsgmaulwurf zum Thema Windows Tools ...

Linux Netzwerk

Ping und das einstellbare Bytepattern

(1)

Erfahrungsbericht von LordGurke zum Thema Linux Netzwerk ...

Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(4)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Heiß diskutierte Inhalte
Firewall
Richtige Grundeinstellungen der Pfsense für mein Netzwerk (14)

Frage von Spitzbube zum Thema Firewall ...

Switche und Hubs
gelöst Cisco 2960x Stacking über mehrere Etagen (12)

Frage von b3scher zum Thema Switche und Hubs ...