读取LoadRunner Analysis信息

Dim Conn

Dim Rst

set Conn=CreateObject("Adodb.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=xxxx\analysis.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

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