.......................
FileStr=InputFile.ReadLine
Set rg = New RegExp
rg.Pattern="\w\s\w\s\d{2}\.\d{2}\.\d{2}\s\d{4}"
rg.IgnoreCase=true
rg.Global=true
Do While Not rg.Test(FileStr) And InputFile.AtEndOfStream=false
FileStr=InputFile.ReadLine
Loop
WScript.Echo FileStr
InputFile.Close

rg.Pattern="\w\s\w\s\d{2}\s\d{2}\.\d{2}\.\d{2}\s\d{4}"

rg.Pattern="\w+\s\w+\s\d{2}\s\d{2}:\d{2}:\d{2}\s\d{4}"