AuditReport.ExportRequestTypeAverageDuration method

The ExportRequestTypeAverageDuration method generates a report for the number of total requests and average durations, in milliseconds, for all request types.

Syntax


AuditReport.ExportRequestTypeAverageDuration( _
  ByVal languageId, _
  ByVal start, _
  ByVal end, _
  ByVal filePath, _
  ByVal fileType _
)

Parameters

languageId

An integer that contains the locale ID (LCID) of the report language. For example, the LCID for U.S. English is 1033. For a complete list of the LCIDs supported by Microsoft, see List of Locale ID (LCID) Values as Assigned by Microsoft.

start

A DateTime value that contains the beginning time for the report.

end

A DateTime value that contains the ending time for the report.

filePath

A String value that contains the report file path.

fileType

An integer that contains the export file type. This can be one of the following values.

0

Microsoft Excel (.xls) file.

2

Portable Document Format (PDF) file.

Return value

This method returns a Boolean value. True specifies that a report was generated. False specifies that no report could be generated for the given input.

Examples



DIM config_manager
DIM admin_role

' *******************************************************************
' Create and initialize a ConfigurationManager object.

SUB InitObject()

  CALL WScript.Echo( "Create ConfigurationManager object...")
  SET config_manager = CreateObject _
    ("Microsoft.RightsManagementServices.Admin.ConfigurationManager")      
  CheckError()
    
  CALL WScript.Echo( "Initialize...")
  admin_role=config_manager.Initialize(false,"localhost",80,"","","")
  CheckError()

END SUB

' *******************************************************************
' Generate a RequestTypeAverageDuration report.
'
' Variables:
'    auditReport - AuditReport object
'    lcid        - 1033 is the U.S. English LCID
'    endDate     - Today's date
'    startDate   - Ten days prior to the end date
'    outFile     - Output file path
'    fileType    - Zero (0) represents an Excel (.xls) file

SUB CreateReport()

  DIM auditReport
  DIM lcid
  DIM endDate
  DIM startDate
  DIM outFile
  DIM fileType

  lcid = 1033
  endDate = Now
  startDate = DateAdd("d", -10, endDate)
  outFile = "c:\avgDuration.xls"
  fileType = 0

  ' Create an AuditReport object.
  SET auditReport = _
          config_manager.AuditReport
  CheckError()

  ' Generate the report.
  CALL auditReport.ExportRequestTypeAverageDuration( _
      lcid, _ 
      startDate, _ 
      endDate, _ 
      outFile, _ 
      fileType)
  CheckError()

END SUB

' *******************************************************************
' Error checking function.

FUNCTION CheckError()
  CheckError = Err.number
  IF Err.number <> 0 THEN
    CALL WScript.Echo( vbTab & "*****Error Number: " _
                       & Err.number _
                       & " Desc:" _
                       & Err.Description _
                       & "*****")
    WScript.StdErr.Write(Err.Description)
    WScript.Quit( Err.number )
  END IF
END FUNCTION

' *******************************************************************
' Generate a runtime error.

SUB RaiseError(errId, desc)
  CALL Err.Raise( errId, "", desc )
  CheckError()
END SUB


Requirements

Minimum supported client

None supported

Minimum supported server

Windows Server 2008

Assembly

Microsoft.RightsManagementServices.Admin.dll

See also

AuditReport

 

 

Show: