ReporterManager是一个QTP的报告管理扩展框架，目前最新版本是0.9.2，可到www.AdvancedQTP.com下载。

        支持好几种方式的报告，例如：弹出消息框的报告方式、Excel表格样式、Windows事件日志、数据库报告、样式文本、屏幕截屏，还有QTP自身的报告，最新版本的还支持XML格式报告。

        下面是一个简单的使用ReporterManager的代码：

Call oReporterManager.StartEngine("Text", "Log", "") '启动一个Text类型的日志报告

Call oReporterManager.Report ("Pass", "Step 1" ,"Window Should Open" ,"All OK", "No Details")  '把事件记录到文件中

   具体的使用方法尚未深入尝试，不过看它附带的Demo感觉挺容易使用的，并且很简单的几行调用代码就能得到很漂亮的Excel报告：

   下面是它附带的Demo脚本代码，可以清楚知道如何使用各种格式的报告引擎：

'''<summary>This is a demo QTP test, that showcases some of the ReporterManager abilities</summary>

'''<datecreated>01/09/2007</datecreated>

'''<version>0.9</version>

Option Explicit

''Written by Yaron Assa, 1/9/07. Project home at www.AdvancedQTP.com

'Here's an extensive yet effective reporting framework example:

'Add QTP native reporter to the party. This way we wont need 2 reporting commands - one to ReporterManager, and one to the QTP result log

Call oReporterManager.StartEngine("QTP", "QTP", "")

'Set up a complete backup log - the basics

Call oReporterManager.StartEngine("Text", "Backup", "File>C:\Logs\QTPLog.txt")

'Make sure to copy the demo MDB database to c:\QTP Log.mdb

Call oReporterManager.StartEngine("DB", "DB Backup", "CreateNew>True")

'Set up statistics log - with it we can later produce the step pass/fail ratio with a click of a button

Call oReporterManager.StartEngine("Text", "Stats", "File>C:\Logs\Statistics.CSV|BodyTemplate>""%Status%, %StepName%, %Expected%, %Actual%, %Details%"" & vbcrlf|NewTestCaseTemplate>""General, Switched TestCase, , , %TestCaseName%"" & vbcrlf")

'Set up dedicated performence log - we can load it to excel and imiddiatly extract the time-step differences between relevant steps

Call oReporterManager.StartEngine("Text", "Performance", "File>C:\Logs\Performance.CSV|BodyTemplate>""%Time%, %StepName%"" & vbcrlf|NewTestCaseTemplate>"" "" ")

'Set up a top view excel log, so we'll have something pretty to send to management

Call oReporterManager.StartEngine("Excel", "TopView", "File>C:\Logs\TopView.xls")

'Set up a dedicated error & warnning logs

 Call oReporterManager.StartEngine("Text", "Errors", "File>C:\Logs\Errors.txt|BodyTemplate>""%Time%, %Status%, %StepName%, %Expected%, %Actual%"" & vbcrlf")

 Call oReporterManager.StartEngine("Winlog", "Win Errors", "ShowAs>QTP Errors")

 Call oReporterManager.StartEngine("ScreenCapture", "Error Captures", "Path>C:\Logs\|Prefix>Error -")

'Set up the filter for errors

      Call oReporterManager.AddFilter("RegEx", "Errors>Win Errors>Error Captures", "Pattern>Fail|WhatToSearch>Status")

'Set up a user popup that alerts whoever's watching that an error has occured - enable major time saves as a script can be stopped imidiatly

 Call oReporterManager.StartEngine("User", "Errors Pop Up", "Timer>2")

      Call oReporterManager.AddFilter("RegEx", "Errors Pop Up", "Pattern>Fail|WhatToSearch>Status")

 'Test the logs :

Call oReporterManager.Report ("Pass", "Step 1" ,"Window Should Open" ,"All OK", "No Details")

Call oReporterManager.Report ("Warning", "Step 2" ,"Window Should Open" ,"It Didn't", "Some Details")

Call oReporterManager.Report ("Fail", "Step 3" ,"Window Should Open" ,"App. Crashed", "Bla Bla Bla")

 另外，ReporterManager的几个VBS代码文件也值得深入学习和研究。