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, 4324 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Netzwerkgrundlagen
SMB-Scanfreigabe von Xerox-Drucker (8)

Frage von mcdutch zum Thema Netzwerkgrundlagen ...

Windows 10
"geräte und drucker" unter w8 bzw. w10 zu starten dauert ewig (5)

Frage von tobias3355 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (34)

Frage von patz223 zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...