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

Daten aus csv-Datei weiter verwenden

Frage Entwicklung

Mitglied: MJat2378

MJat2378 (Level 1) - Jetzt verbinden

21.07.2008, aktualisiert 23.07.2008, 6264 Aufrufe, 8 Kommentare

Hallo!

Ich möchte gern per vb-script aus einer csv-Datei Daten auslesen und dann per script z.B. Drucker installieren.
Nun bin ich wie schon oft gesagt Anfänger auf diesem Gebiet. Ich habe schon Daten aus dieser csv-Datei ausgelesen, aber nun möchte ich diese weiter verwenden. Kann mir da bitte jemand helfen!

hier mein script vom auslesen:

Option Explicit
' Konstanten definieren
Const ForReading = 1
' Variablen deklarieren
Dim FSO, Datei, objPrinter, strComputer, objWMIService, print
Dim TextZeile
'Objekt erzeugen
Set FSO=CreateObject("Scripting.FileSystemObject")
'Öffnen der Datei zum Lesen
Set Datei = FSO.OpenTextFile("csvdaten.csv", ForReading, False)
'Datei bis zum Ende durchlaufen
while not Datei.AtEndOfStream
'Lesen einer Zeile
TextZeile=Datei.Readline()
'Zeile an Semikolon trennen und die Werte
'in einem Array speichern
objPrinter=Split(TextZeile,";")
'Ausgabe der Benutzerdaten
wscript.echo objPrinter(0) & ";" & objPrinter(1) & ";" & objPrinter(2) & ";" & objPrinter(3) & ";" & objPrinter(4) & ";" & objPrinter(5) & ";" & objPrinter(6)

Und hier wäre das Skript zum erstellen eines einzelnen Druckers:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_

objPrinter.DriverName = "Apollo P2200"
objPrinter.PortName = "Lpt1:"
objPrinter.DeviceID = "PR1Kat1B1"
objPrinter.Location = "USA/Redmond/Building 37/Room 114"
objPrinter.Network = False
objPrinter.Shared = True
objPrinter.ShareName = "PR1Kat1B1"
objPrinter.Put_

--> Wie kann ich diese beiden irgendwie zusammen fügen???
Mitglied: bastla
21.07.2008 um 13:58 Uhr
Hallo MJat2378

Etwa so:
01.
Option Explicit 
02.
' Konstanten definieren 
03.
Const ForReading = 1 
04.
' Variablen deklarieren 
05.
Dim FSO, Datei, objPrinter, strComputer, objWMIService, strPrinter 
06.
Dim TextZeile 
07.
 
08.
strComputer = "." 
09.
Set objWMIService = GetObject("winmgmts:" _ 
10.
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
11.
 
12.
'Objekt erzeugen 
13.
Set FSO=CreateObject("Scripting.FileSystemObject") 
14.
'Öffnen der Datei zum Lesen 
15.
Set Datei = FSO.OpenTextFile("csvdaten.csv", ForReading, False) 
16.
'Datei bis zum Ende durchlaufen 
17.
Do While Not Datei.AtEndOfStream 
18.
	'Lesen einer Zeile 
19.
	TextZeile = Datei.Readline() 
20.
	'Zeile an Semikolon trennen und die Werte 
21.
	'in einem Array speichern 
22.
	strPrinter = Split(TextZeile,";") 
23.
	'Drucker erstellen 
24.
	Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_ 
25.
	objPrinter.DriverName = strPrinter(0) 
26.
	objPrinter.PortName = strPrinter(1) 
27.
	objPrinter.DeviceID = strPrinter(2) 
28.
	objPrinter.Location = strPrinter(3) 
29.
	objPrinter.Network = strPrinter(4) 
30.
	objPrinter.Shared = strPrinter(5) 
31.
	objPrinter.ShareName = strPrinter(6) 
32.
	objPrinter.Put_ 
33.
Loop 
34.
Datei.Close
Grüße
bastla
Bitte warten ..
Mitglied: MJat2378
21.07.2008 um 14:55 Uhr
Danke sehr bastla, dass bringt mich sehr weiter.

Jedoch bringt er eine Fehlermeldung: Zeile 32 SWbemObjectEx: Allgemeiner Fehler

Hmm...wenn ich es einzeln ausführe funktioniert es --> also einen Drucker allein anlege.
Bitte warten ..
Mitglied: MJat2378
21.07.2008 um 17:08 Uhr
Hallo, ich noch mal!

Weiß jemand, warum da der Fehler erscheint?
Bitte warten ..
Mitglied: bastla
21.07.2008 um 17:50 Uhr
Hallo MJat2378!

So wie hier wird's ja bei Dir wohl nicht sein ...

Grüße
bastla
Bitte warten ..
Mitglied: MJat2378
22.07.2008 um 09:59 Uhr
Hallo bastla!

Nein, mit dem Treiber hat es nichts zu tun. Denn wenn ich das Script (für Drucker erstellen) allein ausführe, also ohne Zugriff auf csv-Datei, funktioniert es ja.

LG

MJ
Bitte warten ..
Mitglied: MJat2378
23.07.2008 um 11:28 Uhr
Hallo, habe den Fehler gefunden --> Csv-Datei war nicht korrekt --> jetzt funktioniert es!

Ich habe aber noch eine Frage (oh..nein..nicht schon wieder... )

Ich möchte gern noch einen neuen Port einrichten (TCP/IP Port), SNMP sollte auch aktiviert sein. Jedoch fehlen mir die richtigen Befehle dazu. Weiß jemand eine Antwort???

--> Also bei neuer Drucker hinzufügen --> einen neuen Anschluss erstellen --> TCP/IP Port --> usw.

Danke für eure Hilfe!
Bitte warten ..
Mitglied: MJat2378
23.07.2008 um 11:40 Uhr
Hallo hab es hinbekommen

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objNewPort = objWMIService.Get _
("Win32_TCPIPPrinterPort").SpawnInstance_

objNewPort.Name = "IP_1.2.3.4"
objNewPort.Protocol = 1
objNewPort.HostAddress = "1.2.3.4"
objNewPort.PortNumber = "9100"
objNewPort.SNMPEnabled = False
objNewPort.Put_

--> siehe Link von bastla

Danke nochmal
Bitte warten ..
Mitglied: bastla
23.07.2008 um 11:43 Uhr
Hallo MJat2378!

Für's nächste Script : http://www.microsoft.com/technet/scriptcenter/scripts/default.mspx?mfr= ...

Grüße
bastla
Bitte warten ..
Neuester Wissensbeitrag
CPU, RAM, Mainboards

Angetestet: PC Engines APU 3a2 im Rack-Gehäuse

(1)

Erfahrungsbericht von ashnod zum Thema CPU, RAM, Mainboards ...

Ähnliche Inhalte
VB for Applications
Bestimmte Daten aus eine CSV-Datei in eine Excel-Tabelle importieren (2)

Frage von MariaElena zum Thema VB for Applications ...

Batch & Shell
gelöst PS Werte CSV-Datei in AD Attribut (3)

Frage von lupolo zum Thema Batch & Shell ...

Batch & Shell
Mehrere AD Benutzer aus CSV Datei mit PowerShell erstellen (1)

Frage von windelterrorist zum Thema Batch & Shell ...

Batch & Shell
CSV-Datei nach Excel importieren (5)

Frage von mrvfbnummer2 zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
DSL, VDSL
DSL-Signal bewerten (13)

Frage von SarekHL zum Thema DSL, VDSL ...

Switche und Hubs
Trunk für 2xCisco Switch. Wo liegt der Fehler? (9)

Frage von JayyyH zum Thema Switche und Hubs ...

Windows Server
Mailserver auf Windows Server 2012 (9)

Frage von StefanT81 zum Thema Windows Server ...

Backup
Clients als Server missbrauchen? (9)

Frage von 1410640014 zum Thema Backup ...