QTP批量执行并发邮件
| Option Explicit '***************************************************************** '脚本说明：公共变量声明，路径根据实际环境修改 '***************************************************************** Dim ReportLocation '报告存放路径 ReportLocation = "D:projectQTPqtpscript" Dim QtpLocation 'Qtp安装路径 QtpLocation = "D:softwaretestingMercury InteractiveQuickTest ProfessionalinQTPro.exe" '***************************************************************** '脚本说明：启动QTP '***************************************************************** Dim WshShell，oExec set WshShell = WScript.CreateObject("WScript.Shell") Set Exec = WshShell.Exec (QtpLocation) Set WshShell = Nothing WScript.Sleep 60000 '等待1分钟 '***************************************************************** '脚本说明：判断文件是否存在，存在删除 '***************************************************************** Dim oFSO ' 创建一个文件系统对象 set FSO = CreateObject ("Scripting.FileSystemObject") CheckFileExists(ReportLocation) Function CheckFileExists (FilePath) FilePath = FilePath &"测试结果1.html" ' 检查文件是否存在，如果存在删除 CheckFileExists = oFSO.FileExists(FilePath) 'MsgBox CheckFileExists If (CheckFileExists = true) Then oFSO.DeleteFile (FilePath) End if End Function '***************************************************************** '脚本说明：批量执行脚本并生成摘要报告 '***************************************************************** Dim oMTM ' 创建 Multi Test Manager 对象 Set MTM = CreateObject("MultiTestManager.Application") oMTM.Visible = True ' 修改运行时的默认设置 Dim oRunSettings Set RunSettings = oMTM.Preferences.RunSettings oRunSettings.Iterations = 1 oRunSettings.CloseQuickTest = True '打开注释启用定时调度 'oRunSettings.ScheduleRun = True 'oRunSettings.Day = 3 'oRunSettings.Month = 12 'oRunSettings.Year = 2009 'oRunSettings.Second = 00 'oRunSettings.Minute = 55 'oRunSettings.Hour = 15 ' 修改报告的默认设置 Dim oReportSettings Set ReportSettings = oMTM.Preferences.ReportSettings oReportSettings.CreateReport = True oReportSettings.OverwriteReport = False oReportSettings.DefaultLocation = False oReportSettings.ReportLocation = ReportLocation '报告存放路径 oReportSettings.ReportName = "测试结果" oReportSettings.ViewReport = True '批量执行脚本：脚本的目录，是否执行，执行结果存放位置 oMTM.AddTestScript. "D:projectQTPqtpscriptarTest"， True，ReportLocation 'oMTM.AddTestScript. "D:projectQTPqtpscriptarTest"， True，ReportLocation 根据脚本进行添加 ' 运行脚本 oMTM.Run while ( oMTM.IsRunning ) Wend oMTM.Quit Set RunSettings = Nothing Set ReportSettings = Nothing Set MTM = Nothing |
