使用VBS直接读取loadrunner 结果MDB文件

Dim Conn

Dim Rst

set Conn=CreateObject("Adodb.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=E:\Work\test\result\gdkkx\运行数据查询\运行数据查询.mdb"
Set Rst=CreateObject("Adodb.RecordSet")

Rst.Open "Select * from Result",Conn

Do while not Rst.EOF:
  scenario  = Rst.Fields("Scenario Name").Value
  name      = Rst.Fields("Result Name").Value
  tz        = Rst.Fields("Time Zone").Value / 3600
  startTime = Rst.Fields("Start Time").Value
  endTime   = Rst.Fields("Result End Time").Value
  Rst.MoveNext

Loop

Wscript.Echo " "
Wscript.Echo "  Scenario: %s " & scenario
Wscript.Echo "    Run ID: %s " &  name
Wscript.Echo "        TZ: %s " &  tz
Wscript.Echo "Start Time: %s " &  time.asctime(time.localtime(startTime))
Wscript.Echo "  End Time: %s " &  time.asctime(time.localtime(endTime))