QTP轻量级框架系列(三)之windows下任务调度启动QTP

'==========================================================================

' NAME: User Login

' UPDATE AUTHOR: heyl 

' DATE  : 2013-07-11

' COMMENT: 

'==========================================================================

Dim qtpApp

'创建QTP实例

Set qtpApp = CreateObject("QuickTest.Application")

'启动QTP实例

qtpApp.Launch

qtpApp.Visible = true

'打开相应的QTP脚本（如脚本为保存在D盘的Test1）

qtpApp.Open "D:\automation\SD_script\Script\SDS_Script"

Set qtpTest= qtpApp.Test

Set bjTestRecovery = qtpApp.Test.Settings.Recovery

'设置QTP存储报告的目录

Set qtpResultsOpt = CreateObject("QuickTest.RunResultsOptions")

'运行QTP

qtpTest.Run qtpResultsOpt

'运行完毕，退出脚本

qtpTest.Close

'测试任务结束后，退出QTP实例

qtpApp.quit

Set qtpApp = Nothing