我們可以編寫一個Vbs腳本，直接在Windows平臺下直接運行調用qtp的測試腳本，也可以將這個腳本添加到計劃任務中，可以定時執行。

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

復制代碼 代碼如下:

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