【QTP】AOM-用vbs文件启动QTP并运行脚本

本文链接：https://blog.csdn.net/wangsy0202/article/details/51692751

本文介绍了一种使用VBS脚本自动化启动和运行QTP（QuickTest Professional）测试的方法，包括设置测试恢复选项及自定义测试结果的保存路径。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

CODE:
Dim

qtApp

'创建QTP实例

Set

qtApp = CreateObject("QuickTest.Application")

'启动QTP实例

qtApp.Launch

qtApp.Visible
 = true

'打开相应的QTP脚本（如脚本为保存在D盘的Test1）

qtApp.Open "D:\Test1"

Set

qtTest= qtApp.Test

Set

objTestRecovery = qtApp.Test.Settings.Recovery

'设置QTP存储报告的目录

Set

qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")

'运行QTP

qtTest.Run
 qtResultsOpt

'运行完毕，退出脚本

qtTest.Close

'测试任务结束后，退出QTP实例

qtApp.quit

Set

qtApp = Nothing

CODE:
01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25	`Dim` `qtApp` `'创建QTP实例` `Set` `qtApp = CreateObject("QuickTest.Application")` `'启动QTP实例` `qtApp.Launch` `qtApp.Visible = true` `'打开相应的QTP脚本（如脚本为保存在D盘的Test1）` `qtApp.Open` `"D:\Test1"` `Set` `qtTest= qtApp.Test` `Set` `objTestRecovery = qtApp.Test.Settings.Recovery` `'设置QTP存储报告的目录` `Set` `qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")` `'运行QTP` `qtTest.Run qtResultsOpt` `'运行完毕，退出脚本` `qtTest.Close` `'测试任务结束后，退出QTP实例` `qtApp.quit` `Set` `qtApp =` `Nothing`