TXT zeilenweise per VBS auslesen

Nö, kann niemand, weil Variablen dynamisch anlegen geht nicht. Macht auch keinen Sinn, weil wie willst Du danach Programmiertechnisch drauf zugreifen, wenn man den Namen nicht kennt?
Schon mal was von einem Array oder Variablenfeld gehört?
Ein Array ist ein Konstrukt, welches man unter einem Namen ansprechen kann und mittels Index mehrere Werte reinschreiben kann und wieder auslesen. Sozusagen Strassenname mit Hausnummern der verschiedenen Lager.

Set fso = CreateObject("Scripting.FileSystemObject")
Set oFile = fso.OpenTextFile("C:\Systeme.txt")
i=0
' Erstmal zählen wieviele Einträge
while not oFile.AtEndOfStream
i=i+1
oFile.ReadLine
Wend
oFile.Close
' Array definieren
REDIM sEingabe(i)
Set oFile = fso.OpenTextFile("C:\Systeme.txt")
i=0
' Jetzt Werte ins Array übernehmen
while not oFile.AtEndOfStream
sEingabe(i)=oFile.ReadLine
i=i+1
Wend
oFile.Close
' Beispiel für Zugriff
MsgBox "Wert an Index 0: " & sEingabe(0)
MsgBox "Wert an Index 3: " & sEingabe(3)

Kein schönes Beispiel, tut aber und in VB-Script würde ich auch eher ein Dictionary Objekt verwenden (Arrays gibts halt in praktisch jeder Sprache):

Set fso = CreateObject("Scripting.FileSystemObject")
Set oDict = CreateObject("Scripting.Dictionary")
Set oFile = fso.OpenTextFile("C:\Systeme.txt")
'Direktes Einlesen, Dictionary Objekt darf nämlich beliebig wachsen
i=0
while not oFile.AtEndOfStream
oDict.add i,oFile.ReadLine
i=i+1
Wend
oFile.Close
' Beispiel für Zugriff
MsgBox "Wert an Index 0: " & oDict.Item(0)
MsgBox "Wert an Index 3: " & oDict.Item(3)


EDIT: Wenn ich die Code-Beispiel mit < code > versuche zu formatieren, sieht man nichts mehr von meinem Text. Deswegen ohne Code Formatierung.