外部工具如何调用QTP完成测试

Dim qtApp
Dim qtTest
Dim qtResultsOpt

Set qtApp = CreateObject("QuickTest.Application")
qtApp.Launch
qtApp.Visible = True
qtApp.Open "D:\Test2", True

Set qtTest = qtApp.Test
qtTest.Settings.Run.OnError = "NextStep"
Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")
qtResultsOpt.ResultsLocation = "D:\Test2\"
qtTest.Run
qtApp.quit
 
Set qtResultsOpt = Nothing
Set qtTest = Nothing
Set qtApp = Nothing