我們可以編寫一個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
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
作者：
王凱，網名：aken，Testage.net成員，多年的軟件開發、軟件測試和測試培訓經驗。精通軟件測試過程、軟件測試技術、自動化測試技術、性能測試技術和測試團隊管理。熟悉多種測試工具應用，並開發過多種Web應用的測試工具。曾組織和參與嵌入式Linux、企業管理系統和大型網站等系統的測試工作。