Dankeschön

[Marco Eder]

Vielen Dank für deine Hilfe. Ich habe es jetzt aber anderst gelöst.
Nämlich so:

Dim ts, s, SuchZf, SuchZeichen, Pos, fsx, tsx, host

Set fso = CreateObject("Scripting.FileSystemObject")
    textstream.writeline "NetzwerkInformationen"
    textstream.writeline "---------------------"
    textstream.WriteBlankLines 1

Set ts = fso.OpenTextFile("U:\Projekte\vbs\datei.txt", ForReading)
    s = ts.ReadAll
   SuchZf = s
   Set fsx = CreateObject("Scripting.FileSystemObject")
   Set tsx = fsx.CreateTextFile("U:\Projekte\vbs\datei2.txt",True)
   tsx.write(s)
   Set tsx = fsx.OpenTextFile("U:\Projekte\vbs\datei2.txt",1)
    SuchZeichen = "Hostname"
   Pos = InStrRev(SuchZf, SuchZeichen)
    pos = pos - 1
    tsx.skip(pos)
    host = tsx.ReadLine
    textstream.writeline host

Muss ich nur noch ein bisschen vereinfachen, aber es funktioniert.
Gruss Ganja