我们可以编写一个Vbs脚本，直接在Windows平台下直接运行调用qtp的测试脚本，也可以将这个脚本添加到计划任务中，可以定时执行。

脚本如下：

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

复制代码 代码如下:

DimqtApp

DimqtTest

DimqtResultsOpt

SetqtApp=CreateObject("QuickTest.Application")

qtApp.Launch

qtApp.Visible=True

qtApp.Open"C:QuickTestProfessionalteststest1test1.usr",True

SetqtTest=qtApp.Test

qtTest.Settings.Run.OnError="NextStep"

SetqtResultsOpt=CreateObject("QuickTest.RunResultsOptions")

qtResultsOpt.ResultsLocation="C:QuickTestProfessionalteststest1"

qtTest.Run

SetqtResultsOpt=Nothing

SetqtTest=Nothing

SetqtApp=Nothing