1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

Script funktioniert nicht

Discussion in 'Programmieren' started by MJat23, Jul 22, 2008.

Thread Status:
Not open for further replies.
  1. MJat23

    MJat23 ROM

    Hallo,

    ich habe folgendes Script mit Hilfe erstellen können, jedoch kommt immer eine Fehlermeldung: Zeile 32 (hier rot markiert) SWbemObjectEx: Allgemeiner Fehler

    Mit dem Script möchte ich aus einer csv-Datei Drucker installieren.

    Was kann das sein? Danke für eure Hilfe! :-) :bitte:

    --> Und jetzt das Script:

    Option Explicit
    ' Konstanten definieren
    Const ForReading = 1
    ' Variablen deklarieren
    Dim FSO, Datei, objPrinter, strComputer, objWMIService, strPrinter, iFlags
    Dim TextZeile
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    'Objekt erzeugen
    Set FSO=CreateObject("Scripting.FileSystemObject")
    'Öffnen der Datei zum Lesen
    Set Datei = FSO.OpenTextFile("c:\csvdaten.csv", ForReading, False)
    'Datei bis zum Ende durchlaufen
    Do While Not Datei.AtEndOfStream
    'Lesen einer Zeile
    TextZeile = Datei.Readline()
    'Zeile an Semikolon trennen und die Werte
    'in einem Array speichern
    strPrinter = Split(TextZeile,";")
    'Drucker erstellen
    Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_
    objPrinter.DriverName = strPrinter(0)
    objPrinter.PortName = strPrinter(1)
    objPrinter.DeviceID = strPrinter(2)
    objPrinter.Location = strPrinter(3)
    objPrinter.Network = strPrinter(4)
    objPrinter.Shared = strPrinter(5)
    objPrinter.ShareName = strPrinter(6)
    objPrinter.Put_
    Loop
    Datei.Close
     
    Last edited: Jul 22, 2008
    MJat23, Jul 22, 2008
    #1
  2. RealC++

    RealC++ Kbyte

    Schreib doch mal objPrinter.Put(), vielleicht geht's.
     
    RealC++, Jul 30, 2008
    #2
Thread Status:
Not open for further replies.

Share This Page