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, 6267 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
Microsoft Office

MS Office Excel - Formel wird angezeigt, aber nicht berechneter Wert!

Tipp von holli.zimmi zum Thema Microsoft Office ...

Ä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 ...

VB for Applications
gelöst Bestimmte Spalten aus CSV-Datei auslesen (VBS) (9)

Frage von Gurkenhobel 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 ...

Heiß diskutierte Inhalte
Exchange Server
Bestehende eMails autoamatisch weiterleiten (21)

Frage von metal-shot zum Thema Exchange Server ...

Hyper-V
gelöst Reiner Hyper- V Server oder lieber Rolle (21)

Frage von Winuser zum Thema Hyper-V ...

SAN, NAS, DAS
gelöst Synology Version 6.1 Probleme (18)

Frage von Hendrik2586 zum Thema SAN, NAS, DAS ...

Router & Routing
gelöst IP Kamera für drei unabhängige Netzwerke (15)

Frage von ProfessorZ zum Thema Router & Routing ...