QTP Launch

Dim qtApp, qtTest, qtResult, oShell. ResultCode

Wscript.echo WScript.ScriptFullName & " Starting"

Set oShell = CreatObject("WScript.Shell")

Wscript.Quit ResultCode

WScript.Sleep (1000)

Set qtApp = CreatObject("QuickTest.Application")

qtApp.Launch

BuildTag=oShell.ExpandEnvironmentStrings("%BUILD_TAG%")'“%path%”会扩充成完整路径

If BuildTag="%BUILD_TAG%" Then

     qtApp.visible = true

Else

     qtApp.visible = false

End If

qtApp.Options.Run.RunMode = "Fast"

qtApp.Options.Run.ViewResult = False

qtApp.Open oShell.ExpandEnvironmentStrings("%Result%") & "TestCodeCasesRunner", True 'Open on Read-only mode

set qtTest = qtApp.Test

Dim fso

fso = CreatObject("scripting.FileSystemObject")

qtTest.Environment.Value("ResultFolder") = oShell.ExpandEnvironmentStrings("%Result%") & "Report"

Set oExl = CreatObject("Excel.Application")

Set oWorkBook = oExl.Workbooks.Open(qtTest.Environment.Value("WorkSpace") & "" OriginalGlobalData, ,_

True, ,vbNullString)

oExl .application.visible=false

oExl .application.displayalerts=false

oWorkBook.Saves qtTest.Environment.Value("ResultFolder") & "" & SourceData, 43

oExl .application.Quit

set oExl = Nothing

Sub Load

If qtApp.test.Settings.Resources.Libraries.Count >0 Then

     qtApp.test.Settings.Resources.Libraries.RemoveAll

End If

Set fso = CreateObject("Scripting.FileSystemObject")

Set CommFol=fso.GetFolder(LibPath & "Common")

Set AllFiles=CommFol.Allfile

For Each FuncFile in AllFiles

    If Instr(FuncFile .name, ".vbs")> 0 or Instr(FuncFile .name, ".qfl")> 0 Then

           qtApp.test.Settings.Resources.Libraries.Add LibPath & "Common" & FunFile.name

     End If

Next

For Each FuncFile in AllFiles

    If Instr(FuncFile .name, ".vbs")> 0 or Instr(FuncFile .name, ".qfl")> 0 Then

           qtApp.test.Settings.Resources.Libraries.Add LibPath & "Project" & FunFile.name

     End If

Next

Set fso = Nothing

End Sub

Sub Run

    TmpResult = qtTest.Environment.Value ("ResultFolder") & "tmp"

    qtTest.Settings.Run.IterationMode = "rngIterations"

    qtTest.Settings.Run.StartIteration = 1

    qtTest.Settings.Run.EndIteration = 1

    qtTest.Settings.Run.Error = "NextStep"

    Wscript.echo qtApp.GetStatus

Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")

    qtResultsOpt.ResultLocation = tmpResult

    qtTest.Run qtResultsOpt 'run test

Wscript.echo qtApp.GetStatus

Wscript.echo qtTest.LastRunResults.Status

Wscript.echo qtTest.LastRunResults.Path

Wscript.echo qtTest.LastRunResult.LastError

RunStatus = qtTest.LastRunResults.Status

RunStatus = UCase(runStatus)

If RunStatus <> "PASSED" Then

  REsultCode = 1

End If

oShell.currentdirectory = qtTest.Environment.Value("ResultFolder")

cmd="Reporter.exe"+"HTML"

oShell.Run cmd, 1,True

Wscript.echo "[info] QTP test finished and QTP closed."

End Sub

Sub Close

   qtTest.close

qtApp.quit

set qtTest = nothing

set qtApp = nothing

End Sub