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, 4334 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
Exchange Server

WSUS bietet CU22 für Exchange 2007 SP3 nicht an. EOL Exchange 2007

Tipp von DerWoWusste zum Thema Exchange Server ...

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

Frage von zeroblue2005 zum Thema Exchange Server ...

Windows Server
gelöst Windows Server 2016 core - neue Domäne installieren (1)

Frage von chrismass zum Thema Windows Server ...

Windows Server
Netzwerk Drucker Settings weg nach neu anmelden (5)

Frage von Hans3003 zum Thema Windows Server ...

Heiß diskutierte Inhalte
Batch & Shell
gelöst Batch xls nach aktuellem Datum auslesen und email senden (14)

Frage von michi-ffm zum Thema Batch & Shell ...

Windows Server
SBS 2011 Standard virtualisieren (13)

Frage von HeinrichM zum Thema Windows Server ...

Backup
Datensicherung ARCHIV (12)

Frage von fautec56 zum Thema Backup ...

LAN, WAN, Wireless
Per Script auf UniFi-controller zugreifen und WPA2-Key ändern (11)

Frage von Winfried-HH zum Thema LAN, WAN, Wireless ...