Scripting vbScript阵列错误

我有以下CoreAPP.txt日志文件：

[10/31/2012 19:53:41:889交换INF]{hap=CB2:app=Internet Explorer_b1 6.0.3790.3959:tid=22C0:usr=B9D327}上传所用时间：0.718秒

[10/31/2012 19:53:42:639交换INF]{hap=CB2:app=Internet Explorer_b1 6.0.3790.3959:tid=22C0:usr=V9V327}发射经过的时间：3.250秒

[10/31/2012 19:56:37:815？？？INF]{tid=4004:usr=V47235}一个错误 打开虚拟注册表（第9节）时发生，rc: 07B01F0C-0000004A

[10/31/2012 19:56:37:846？？？INF]{tid=4004}在执行以下操作时发生错误： 打开虚拟注册表（第9节），rc:07B01F0C-0000004A

[10/31/2012 10:45:00:576？？？INF]{tid=1650}在执行以下操作时发生错误： 正在打开虚拟注册表（第9节），rc:07B01F0C-0000004A ElapR 应用程序虚拟化客户端无法连接到流URL “RTSP://SRVW23E:554/V1321\u BDP\u V1\u R1\u SB/V1321\u BDP\u C1\u P2PM\u SS.sft”（rc） 1690900A-000002，原rc 1690900A-000002）

[10/31/2012 00:29:59:843 OSDF ERR]{tid=1464}应用程序 虚拟化客户端无法分析OSD文件 'C:\SoftCache\SoftGrid客户端\OSD 缓存\edCc4305-3f6C-4dcc-3d70-404eb8bd97d8.osd'。原因：XML解析 故障（rc 00000A25-00000002）

[10/31/2012 08:24:35:869？？？呃]{tid=336C:usr=t405230} 检测到文件（'V:\V1321\u BDP\osguard.cp'）。osguard cp文件，否 采取的纠正措施

[10/31/2012 22:16:39:240 JGSW ERR]{hap=1C82:app=bDP c15 E2AM SS 1.0:tid=3D58}应用程序虚拟化客户端无法连接到流URL 'RTSP://PSWQAPP1:554/V14678993_BDP_C15_E2AM_SS/V14678993_BDP_C15_E2AM_SS.sft' （rc 1690900A-000002，原rc 1690900A-000002）

[10/31/2012 22:16:39:240交换错误]{hap=1C82:app=bDP c15 E2AM SS 1.0:tid=3D58}客户端无法连接到应用程序虚拟化服务器（rc 1690900A-000002）

[10/31/2012 22:17:09:163 AMGR ERR]{tid=4F54}指定的 应用程序名称（应用程序集成）不明确。一些 潜在匹配：应用程序集成7.0.1756.1756应用程序 集成9.2.2373.2373

[10/31/2012 22:17:09:163 AMGR ERR]{tid=4F54}应用程序 虚拟化客户端无法打开应用程序集成

[10/31/2012 00:03:14:313 SWAP WRN]{tid=507C:usr=N28712}无法进行交换 加载OSD文件 \PSWQAPP1\Content\D1311\U bDP\U Adobe\U Reader\U 9.3.3\D1311\U bDP\U Adobe\U Reader 9.3.3.osd

[10/31/2012 00:03:14:313 AMGR INF]{tid=507C:usr=i435145}应用程序 管理器无法从中创建应用程序 “\PSWQAPP1\Content\D1311\u bDP\u Adob\u dobe\u Reader\u 9.3.3\D1311\u bDP\u Adob\u Adobe\u Adobe” 读卡器9.3.3.osd'（rc 0C405664-00000002）

==[10/31/2012 13:35:16:987 JGSW ERR]{hap=1:app=Abaculus 1.0.0.1:tid=14C8:usr=R3R7DF42}应用程序虚拟化客户端无法连接到流URL 'RTSP:%SFT_SRV%:554/D1311_bDP_Adob_Adob_Adobe_Abaculus_15_01/D1311_bDP_Adob_Adobe_Abaculus_15_01.SFT' （rc 19D02E0A-10000002，原rc 19D02E0A-10000002）

[10/31/2012 13:35:47:998交换错误]{hap=2:app=AboutPI SDK 1.3.0.26:tid=1568:usr=I337721}无法加载应用程序

[10/31/2012 19:56:37:862交换INF]{hap=CB3:app=Adobe Reader X 10.0.1.434:tid=4004:usr=V47235}上传所用时间：0.609秒

[10/31/2012 19:56:38:393交换INF]{hap=CB3:app=Adobe Reader X 10.0.1.434:tid=4004:usr=V47236}发射所用时间：1.187秒

[10/31/2012 19:56:57:487交换INF]{hap=CB3:app=Adobe Reader X 10.0.1.434:tid=4004:usr=V47234}应用程序关闭

[10/31/2012 20:01:40:745？？？INF]{tid=327C:usr=V42235}一个错误 打开虚拟注册表（第9节）时发生，rc: 07B01F0C-0000004A

[10/31/2012 20:01:40:776？？？INF]{tid=327C}在执行以下操作时发生错误： 打开虚拟注册表（第9节），rc:07B01F0C-0000004A

[10/31/2012 20:01:40:776交换INF]{hap=CB4:app=Adobe Reader X 10.0.1.434:tid=327C:usr=V422357235}上传所用时间：0.609秒

[11/01/2012 16:48:44:157交换INF]{hap=11A4:app=lotusnotes\ub1 6.5.40.5086:tid=361C:usr=A422353001}发射所用时间：5.219秒

[11/01/2012 16:50:21:003？？？INF]{tid=32D8:usr=W8WS83}一个错误 打开虚拟注册表（第9节）时发生，rc: 07B01F0C-0000004A

[11/01/2012 16:50:21:066？？？INF]{tid=32D8}在执行以下操作时发生错误： 打开虚拟注册表（第9节），rc:07B01F0C-0000004A

[11/01/2012 16:50:21:082交换INF]{hap=11A5:app=Adobe Reader X 10.0.1.434:tid=32D8:usr=W8WS83}上传所用时间：0.703秒

[11/01/2012 16:50:22:503交换INF]{hap=11A5:app=Adobe Reader X 10.0.1.434:tid=32D8:usr=W8WS83}发射所用时间：2.218秒

[11/01/2012 16:50:50:395交换INF]{hap=11A5:app=Adobe Reader X 10.0.1.434:tid=32D8:usr=A422353001}应用程序关闭

[11/01/2012 16:53:24:367？？？INF]{tid=1F80:usr=t405230}错误 打开虚拟注册表（第9节）时发生，rc: 07B01F0C-0000004A

[11/01/2012 16:53:24:383 打开虚拟注册表（第9节），rc:07B01F0C-0000004A

[11/01/2012 16:53:24:383交换INF]{hap=11A6:app=Show Desktop 1.0:tid=1F80:usr=A422353001}上传所用时间：0.531秒

[11/01/2012 16:53:24:727交换INF]{hap=11A7:app=Microsoft Office Excel 2003_b1 11.0.8324.1:tid=251C:usr=V422357235}的运行时间 上传时间：0.0秒

[11/01/2012 16:53:24:758交换INF]{hap=11A6:app=Show Desktop 1.0:tid=1F80:usr=V47234}发射所用时间：1.78秒

[11/01/2012 16:53:25:117交换INF]{hap=11A6:app=Show Desktop 1.0:tid=1F80:usr=V422357235}应用程序关闭

[11/01/2012 10:45:00:576？？？INF]{tid=1650}在执行以下操作时发生错误： 打开虚拟注册表（第9节），rc:07B

option Explicit

const ForReading = 1, ForWriting = 2, ForAppending = 3
const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

dim arrErrors(5)
dim objFSO, objServerList, objErrorLog, strErrorLine, strError
dim strComputer, strToday, strFilePath, objCoreApp, strLine, today, i 

set objFSO = CreateObject("Scripting.FileSystemObject")
set objServerList = objFSO.OpenTextFile("list.txt", ForReading, false, TriStateTrue)
set objErrorLog = objFSO.CreateTextFile("error.log")

strToday = Date()

arrErrors(0) = "The Application Virtualization Client could not connect to stream"
arrErrors(1) = "XML parsing failure"
arrErrors(2) = "corrupt cp file detected"
arrErrors(3) = "The client was unable to connect"
arrErrors(4) = "Virtualization Client cannot open Application Integration"
arrErrors(5) = "Could not load OSD file"

Do while not (objServerList.AtEndOfStream)
  strComputer = objServerList.ReadLine

  strFilePath = "\\" & strComputer & "\d$\LOGFILES\"

  set objCoreApp = objFSO.OpenTextFile(strFilePath & "CoreAPP.txt", ForReading, False, TriStateTrue)

  objErrorLog.WriteLine strComputer & vbTab & "," & vbTab & "Checking"

  do while not (objCoreApp.AtEndOfStream)
    strLine = objCoreApp.ReadLine

    'If InStr (strLine, today) = 0 Then

    if (left(strLine, len(strToday) + 1) = "[" & strToday) then
      strErrorLine = objCoreApp.ReadLine

      for i = 0 to ubound(arrErrors)
        strError = arrErrors(i)

        if (left(lcase(strErrorLine), len(strError)) = lcase(strError)) then
          objErrorLog.WriteLine strErrorLine & vbTab & strComputer
          exit for
        end If
      next
    end If
  loop
  objCoreApp.close
loop
objErrorLog.WriteLine "Completed Checking all the servers"

objErrorLog.Close
objServerList.Close
MsgBox "Script Completed" 

MYserver1   ,   Checking
corrupt cp file detected adsa   MYserver1   
Completed Checking all the servers