[mitiya]

сразу несколько вопросов.

1. хотел вынести путь к файлу в переменную но скрипт начал выдавать ошибку
Dim logpath = C:\0001\0001.txt

дальше по коду некоторые места непонятны

Код:

Option Explicit <-- зачем это

Const ForReading = 1 


Dim objRegExp
Dim objMatch

Dim strLine
Dim strTrueLine
Dim strSubMatch


Set objRegExp = WScript.CreateObject("VBScript.RegExp")

objRegExp.Pattern = "\[\d{8}:(\d{6}.\d{2})\]:нужное событие"

With WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\0001\0001.txt", ForReading)   я так понимаю тут
	Do Until .AtEndOfStream                                                                                                                        получается последняя нужная строка
		strLine = .ReadLine()
		
		If objRegExp.Test(strLine) Then
			strTrueLine = strLine
		End If
	Loop
	
	.Close
End With

For Each objMatch In objRegExp.Execute(strTrueLine)             а тут то что не понятно
	For Each strSubMatch In objMatch.SubMatches                кроме вывода времени.
		WScript.Echo strSubMatch                                        так и не понял как отделили время от всей остальной строки
	Next
Next

Set objRegExp = Nothing

WScript.Quit 0