[Script] *Erledigt* Hilfe beim verwenden ausgelesner Zeichen

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von BenQ, 2. November 2006 .

Schlagworte:
Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. 2. November 2006
    *Erledigt* Hilfe beim verwenden ausgelesner Zeichen

    Hi leute,

    habe mein VBScript fast fertig ich hänge nun daran das ich eine txt-Datei habe und diese als OpenAsTextStrem öffne, nun möchte ich den inhalt auslesen und in meinem Programm verwenden köönt ihr mir sagen was ich nun machen muss?

    hier der Code:

    Code:
    'Anlegen des Ordners ServicePack-Auswertung
Set fso = CreateObject ("Scripting.FileSystemObject")
Set folder = fso.CreateFolder ("C:\ServicePack-Auswertung")

'Öffnen der Datei mit den Rechnernamen
zwsp = fso.OpenTextFile("C:\Rechner.txt", 1, True).Readall

computer = Split(zwsp, vbCrLf)

 For i = 0 To UBound(computer)
 'MsgBox computer(i)
 Set objWMIService = GetObject("Winmgmts:\\" & computer(i))
 Set colOperatingSystems = objWMIService.InstancesOf("win32_OperatingSystem")
 For Each objOperatingSystem In colOperatingSystems
 
'Erstellen der Datei Auswertung.txt 
 logfilename = "C:\ServicePack-Auswertung\" & "Auswertung.txt"
 Set fs = CreateObject ("Scripting.FileSystemObject")
 Set file = fs.OpenTextFile(logfilename, 8, True)
 
'schreiben der Ergebnisse in die Datei 
 file.WriteLine "Name : " & objOperatingSystem.csname & vbCrLf & _
 "Caption : " & objOperatingSystem.caption & vbCrLf & _
 "Version : " & objOperatingSystem.version & vbCrLf & _
 "Service Pack : " & objOperatingSystem.ServicePackMajorVersion & vbCrLf & vbCrLf
 file.close
 
 Next

Next
    BW ist klar.

    Hoffe auf hilfe

    Gruß BenQ
     
  3. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.