DatabaseInformation object
The DatabaseInformation object is used to represent the logging, configuration, and directory services databases. Databases are files stored on a database server such as SQL Server. You can use this object to retrieve the names of the file and server. The object can be retrieved by calling the DatabaseInformation property on the LoggingSystemInformation object or the Configuration and DirectoryServices properties on the EnterpriseDatabase object.
Members
The DatabaseInformation object has these types of members:
Properties
The DatabaseInformation object has these properties.
Property | Description |
---|---|
DBName |
Retrieves the name of the logging database. |
Server |
Retrieves the name of the logging server. |
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 GetDatabaseInfo()
DIM loggingSysInfo
SET loggingSysInfo = _
config_manager.AuditReport.LoggingSystemInformation
CheckError()
CALL WScript.Echo("Server Name:" & _
loggingSysInfo.DatabaseInformation.Server)
CALL WScript.Echo("Database:" & _
loggingSysInfo.DatabaseInformation.DBName)
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 |
|