LoggingSystemInformation object
The LoggingSystemInformation object contains information about the AD RMS logging environment. This includes the name of the logging database, the name of the message queue used to send log messages to the database, and the name of the logging service. You can retrieve this object by calling the LoggingSystemInformation property on the AuditReport object. The AuditReport object must be enabled before messages can be logged.
Members
The LoggingSystemInformation object has these types of members:
Properties
The LoggingSystemInformation object has these properties.
| Property | Description |
|---|---|
| DatabaseInformation |
Retrieves information about the logging database. |
| LoggingQueueName |
Retrieves the name of the message queue. |
| LoggingServiceName |
Retrieves the name of the ADRMS logging service. |
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 logging information.
SUB GetLoggingSystem()
DIM loggingSysInfo
SET loggingSysInfo = _
config_manager.AuditReport.LoggingSystemInformation
CheckError()
CALL WScript.Echo("Server Name:" & _
loggingSysInfo.DatabaseInformation.Server)
CALL WScript.Echo("Database:" & _
loggingSysInfo.DatabaseInformation.DBName)
CALL WScript.Echo("Queue Name:" & _
loggingSysInfo.LoggingQueueName)
CALL WScript.Echo("Service" & _
loggingSysInfo.LoggingServiceName)
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 |
|