VBScript Locate and copy lines from text log file to another text file

Basically I am writing a script to help monitor a robocopy job.

The log files can gro to be very large but always finish with the following information which is usefull:

------------------------------------------------------------------------------

                Total    Copied   Skipped  Mismatch    FAILED    Extras
     Dirs :    161395     89740     71638         0        17    132425
    Files :   1373323    843628    521900         0      7795    640239
    Bytes : 552.848 g 158.126 g 368.098 g         0  26.623 g 233.730 g
    Times :  38:29:47  32:29:36                       0:00:00   6:00:10

    Speed :             1451458 Bytes/sec.
    Speed :              83.053 MegaBytes/min.

    Ended : Fri Feb 22 09:29:51 2008

Basically I want to pull this information from the logs and write it to another file.
All I can think of is to connect to the log file and search for the line:

                Total    Copied   Skipped  Mismatch    FAILED    Extras

I then need to copy the next 9 lines to another text file which is the bit im stuck with.

Can someone help with this?
the code I have to locate the line is:

const ForReading = 1
const TristateFalse = 0
dim strSearchThis
dim objFS
dim objFile
dim objTS
set objFS = CreateObject("Scripting.FileSystemObject")
set objFile = objFS.GetFile("C:\mylogfile.txt")
set objTS = objFile.OpenAsTextStream(ForReading, TristateFalse)

strSearchThis = objTS.Read(objFile.Size)

if instr(strSearchThis, "                Total    Copied   Skipped  Mismatch    FAILED    Extras") > 0 then

CODE TO COPY NEXT 9 LINES TO TEXT FILE HERE

end if

Thanks in advance guysStart Free Trial