ConfigurationManager.AuditReport property

Статья
05/31/2018

The AuditReport property retrieves an AuditReport object that can be used to obtain the number of federated and domain user accounts.

This property is read-only.

Syntax

ConfigurationManager.AuditReport

Property value

This property returns an AuditReport object. The property is read-only.

Error codes

This property returns an AuditReport object.

Remarks

The AuditReport object is configured when the Initialize method is called if the access control list on the AD RMS Administration website supports the Administrator (0x4) or Auditor (0x1) roles.

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

' *******************************************************************
' Retrieve an AuditReport object. Check the object state, enable it,
' and retrieve the number of licensed user accounts.

SUB ChkAuditReport()

  DIM state
  DIM certCount

  state = config_manager.AuditReport.Enabled
  CheckError()
  CALL WScript.Echo( vbTab & "AuditReport.Enabled: " & state)
    
  CALL WScript.Echo( vbTab & "Enable logging...")
  config_manager.AuditReport.Enabled = true
  CheckError()
    
  certCount = config_manager.AuditReport.CertifiedUsersCount
  CheckError()
  CALL WScript.Echo( vbTab & "AuditReport.CertifiedUsersCount: " _
    & certCount)

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

Поделиться через