我們可以編寫一個(gè)Vbs腳本，直接在Windows平臺(tái)下直接運(yùn)行調(diào)用qtp的測試腳本，也可以將這個(gè)腳本添加到計(jì)劃任務(wù)中，可以定時(shí)執(zhí)行。

腳本如下：
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

復(fù)制代碼 代碼如下:

Dim qtApp  
Dim qtTest 
Dim qtResultsOpt  

Set qtApp = CreateObject("QuickTest.Application")  
qtApp.Launch  
qtApp.Visible = True  
qtApp.Open "C:\QuickTest Professional\tests\test1\test1.usr", True 

Set qtTest = qtApp.Test  
qtTest.Settings.Run.OnError = "NextStep"  
Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")  
qtResultsOpt.ResultsLocation = "C:\QuickTest Professional\tests\test1\"  
qtTest.Run 

Set qtResultsOpt = Nothing  
Set qtTest = Nothing  
Set qtApp = Nothing