Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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
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, 4406 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
Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Windows 10
Seekrank bei Windows 10 (18)

Frage von zauberer123 zum Thema Windows 10 ...

Windows 10
Windows 10 Fall Creators Update Fehler (14)

Frage von ZeroCool23 zum Thema Windows 10 ...

Router & Routing
gelöst Getrenntes Routing bei VoIP und Daten (12)

Frage von Hobbystern zum Thema Router & Routing ...