Problemer med scripting.

'------------------------ Test.vbs ------------------------
Dim objFSO, objFile, strPath, strLine, strOut

  strPath = "D:\SYSTEM\Skrivebord\Test.txt"

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFile = objFSO.OpenTextFile(strPath, 1)

    Do While Not objFile.AtEndOfStream
      strLine = objFile.ReadLine
      If InStr(1, strLine, "Computername", vbTextCompare) < 0 Then
        strOut = strOut & "Computername=""Navn""" & vbCrLf
          Else
        strOut = strOut & strLine & vbCrLf
      End If
    Loop
    objFile.Close

  Set objFile = Nothing
  Set objFSO = Nothing

  MsgBox Left(strOut, Len(strOut) - 2) '- den sidste vbCrLf (- 2)

'------------------------ Test.vbs ------------------------

så skal du bare gemme det som står i xx = Left(strOut, Len(strOut) - 2)

naaa det var vel nok sådan du ville have det:

'------------------------ Test.vbs ------------------------
Dim objFSO, objFile, strPath, strLine, strOut, strName

  strPath = "D:\SYSTEM\Skrivebord\Test.txt"
  strName = "Test"

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFile = objFSO.OpenTextFile(strPath, 1)

    Do While Not objFile.AtEndOfStream
      strLine = objFile.ReadLine
      If InStr(1, strLine, "Computername", vbTextCompare) > 0 Then
        strOut = strOut & "Computername=""" & strName & """" & vbCrLf
          Else
        strOut = strOut & strLine & vbCrLf
      End If
    Loop
    objFile.Close

  Set objFile = objFSO.OpenTextFile(strPath, 2)
  objFile.WriteLine Left(strOut, Len(strOut) - 2)
  objFile.Close

  Set objFile = Nothing
  Set objFSO = Nothing
'------------------------ Test.vbs ------------------------

Jeg aftester det lidt senere idag.

Tak det virker perfekt. :)

BTW: Der er en lille fejl i writeline linien, der mangler paranteser on LEN sætningen.

ja det skulle ok også være .Write og ikke .WriteLine

objFile.Write Left(strOut, Len(strOut) - 2)

tak for point :-)