使用vbs脚本启动QTP并运行测试，startQTP.vbs
\'************************************************************************************************************************
\'Description:
\'
\'This example opens a test, configures run options and settings,
\'runs the test, and then checks the results of the test run.
\'
\'Assumptions:
\'There is no unsaved test currently open in QuickTest.
\'For more information, see the example for the Test.SaveAs method.
\'When QuickTest opens, it loads the add-ins required for the test.
\'For more information, see the example for the Test.GetAssociatedAddins method.
\'************************************************************************************************************************
Dim qtApp \'As QuickTest.Application \' Declare the Application object variable
Dim qtTest \'As QuickTest.Test \' Declare a Test object variable
Dim qtResultsOpt \'As QuickTest.RunResultsOptions \' Declare a Run Results Options object variable
Set qtApp = CreateObject("QuickTest.Application") \' Create the Application object
qtApp.Launch \' Start QuickTest
qtApp.Visible = False \' Make the QuickTest application visible
\' Set QuickTest run options
qtApp.Options.Run.ImageCaptureForTestResults = "OnError"
qtApp.Options.Run.RunMode = "Fast"
qtApp.Options.Run.ViewResults = False
qtApp.Open "D:\NewTest\Scripts\BeforeGlobal\Login", False \' Open the test in read-only mode
\' set run settings for the test
Set qtTest = qtApp.Test
qtTest.Settings.Run.IterationMode = "oneIteration" \' Runs the test only once, using only the first row in the global Data Table
\'qtTest.Settings.Run.IterationMode = "rngIterations" \' Run only iterations 2 to 4
\'qtTest.Settings.Run.StartIteration = 2
\'qtTest.Settings.Run.EndIteration = 4
qtTest.Settings.Run.OnError = "NextStep" \' Instruct QuickTest to perform next step when error occurs
qtApp.Test.Settings.Web.BrowserNavigationTimeout = 60000 \' Configure other Web settings
Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") \' Create the Run Results Options object
qtResultsOpt.ResultsLocation = "D:\NewTest\Res1" \' Set the results location
qtTest.Run qtResultsOpt \' Run the test
\'MsgBox qtTest.LastRunResults.Status \' Check the results of the test run
qtTest.Close \' Close the test
qtApp.Quit \'Close the QTP
Set qtResultsOpt = Nothing \' Release the Run Results Options object
Set qtTest = Nothing \' Release the Test object
Set qtApp = Nothing \' Release the Application object
更多详细信息可以参考QTP帮助文件AutomationObjectModel.chm中Application Object （若chm内容为空，可参考CHM文件使用问题）