Share via


EnterpriseDatabase object

The EnterpriseDatabase object can be used to retrieve the configuration and directory services databases.

  • Configuration. This database contains configuration information, all certificates and keys, the encrypted server private key (unless hardware encryption was used), and the private key password hash.
  • Directory services. This database contains the results of Active Directory group membership queries.

To retrieve the logging database, call the LoggingSystemInformation property on the AuditReport object.

Members

The EnterpriseDatabase object has these types of members:

Properties

The EnterpriseDatabase object has these properties.

Property Description
Configuration
Retrieves information about the configuration database.
DirectoryServices
Retrieves information about the directory services database.

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 databases.

SUB GetDatabases()

  DIM enterpriseDb
  DIM configDbServer
  DIM configDbName
  DIM DsDbServer
  DIM DsDbName

  ' Retrieve the EnterpriseDatabase object.
  SET enterpriseDb = config_manager.Enterprise.EnterpriseDatabase
  CheckError()

  ' Retrieve the name of the configuration database and the 
  ' server on which it is installed.
  configDbServer = enterpriseDb.Configuration.Server 
  configDbName = enterpriseDb.Configuration.DBName
  CheckError()

  ' Retrieve the name of the directory services database and the 
  ' server on which it is installed.
  DsDbServer = enterpriseDb.DirectoryServices.Server
  DsDbName = enterpriseDb.DirectoryServices.DBName
  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

Requirements

Minimum supported client
None supported
Minimum supported server
Windows Server 2008
Assembly
Microsoft.RightsManagementServices.Admin.dll

See also

Active Directory Rights Management Services Scripting API Reference