Find et = og print alt til højre for

Hey Skeleton !
Det ser da ikke ud som om, der noget galt med din kode (ud over, at der mangler en paranthes i linie 15)

Hivs du KUN vil have det, der står til højre for, kan du bare replace DomainSites ud af strengen :

Const ForReading = 1, ForWriting = 2

Set FSO = CreateObject("Scripting.FileSystemObject")

SourceFile = "C:\Users\mbo\Documents\test.txt"
DestFile = "C:\Users\mbo\Documents\test2.txt"

set FileRead = fso.OpenTextFile(SourceFile, ForReading, True)
set Fileout = fso.OpenTextFile(DestFile, ForWriting, True)

Do Until FileRead.AtEndOfStream
    strNextLine = FileRead.Readline
    ValLen=len(strNextLine)
    If Instr(1,strNextLine,"DomainSites=",1) Then
      strResult = Right(strNextLine,(ValLen))
      FileOut.WriteLine replace(strResult,"DomainSites=","")
      Wscript.Echo replace(strResult,"DomainSites=","")
    End If
Loop
FileOut.close

/Killer

Takker