Jenkins+QTP测试

 Dim  qtApp

    
  
    
 '创建QTP实例
    
 Set qtApp = CreateObject("QuickTest.Application")
    
 '启动QTP实例
    
 qtApp.Launch
    
 qtApp.Visible = TRUE
    
 '打开相应 的QTP脚本，此处需要修改为自己的脚本所在位置
    
 qtApp.Open "C:\Users\xxx\Documents\Unified Functional Testing\立项"
    
 Set qtTest= qtApp.Test
    
 Set objTestRecovery = qtApp.Test.Settings.Recovery
    
 '设置QTP存储报告的目录
    
  
    
 Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions")
    
 '运行QTP
    
 qtTest.Run qtResultsOpt 
    
 '运行完毕，退出脚本
    
 qtTest.Close
    
 '测试任务结束后，推出QTP实例