parsing OCSP logs

Hello,

am using the following script to parse OCSP Logs(ADCS), which is resulting fine.

but am not satisfied with the speed of parsing - any one can help me to make it quick or other alternative way.

on Error resume Next
Set objFS = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
set objFileU = objFS.OpenTextFile("u_ex141113.log",1) 'IIS Log file input
set objFileRW = objFS.CreateTextFile("Result.txt",2)
i=-10
do until objFileU.atendofstream
strLine = objFileU.readLine
arrLine = split(strLine," ")
arrLine1 = split(arrLine(4),"/")
if arrLine1(1) = "ocsp" Then
'wscript.echo arrLine1(2) & "/" & arrLine1(3) & "/" & arrLine1(4)

set objFileT = objFS.CreateTextFile(i&".txt",2,False)
objFileT.WriteLIne arrLine1(2) & "/" & arrLine1(3) & "/" & arrLine1(4)
objFileT.close

strCommand =  "cmd /c certutil " & i &".txt | findstr Serial"

set objExec = wshShell.exec(strCommand)
strOut = objexec.stdout.ReadAll
if instr(strOut,":") Then
wscript.echo split(replace(replace(strout," ","",1,-1),vbCrLf,""),":")(1) & "," & arrLine(8)
objFileRW.WriteLine split(replace(replace(strout," ","",1,-1),vbCrLf,""),":")(1) & "," & arrLine(8)
end if
objFS.deleteFile i & ".txt"
end if
i=i+1
Loop
objFileRW.close

'thanks