编写一个脚本，用它来操纵QTP的运行

下面内容拷贝自QTP的帮助文档
Dim qtApp 'As QuickTest.Application ' Declare the Application object variable
Dim qtOptions 'As QuickTest.RunResultsOptions ' Declare a Run Results Options object variable
Set qtApp = CreateObject("QuickTest.Application") ' Create a Application object

' Open the test
qtApp.Open "C:\Tests\Test1", False ' Open a test named "Test1"
qtApp.Test.Settings.Resources.DataTablePath = "e:\default.xls"     'add by me
qtApp.Launch ' Start QuickTest
qtApp.Visible = True ' Make the QuickTest application visible

' Run the test
Set qtOptions = CreateObject("QuickTest.RunResultsOptions") ' Create a Results Option object
qtOptions.ResultsLocation = "<TempLocation>" ' Set the Results location to temporary location
qtApp.Test.Run qtOptions, True ' Run the test and wait for it to finish before continuing the automation script


'qtApp.Test.Save

' Save the Run-time Data Table
'qtApp.Test.LastRunResults.DataTable.Export "C:\Runtime.xls" ' Save the run-time Data Table to a file

qtApp.Quit ' Exit QuickTest
Set qtOptions = Nothing ' Release the Run Results Options object
Set qtApp = Nothing ' Release the Application object


至于该脚本的执行  可以用 dos命令下的   cscript  xyz.vbs  来实现