Note
Access to this page requires authorization. You can try signing in or changing directories.
Access to this page requires authorization. You can try changing directories.
The ClusterInformation object contains read-only AD RMS configuration information. You can retrieve the object by calling the ClusterInformation property on the ConfigurationManager object.
Members
The ClusterInformation object has these types of members:
Properties
The ClusterInformation object has these properties.
| Property | Description |
|---|---|
| AdminContactEmail |
Retrieves the email address of the AD RMS administrator. |
| ClusterType |
Retrieves an integer value that identifies whether the AD RMS cluster supports the RMS Licensing web service or the RMS Account Certification web service. |
| IsDecommissioned |
Retrieves a Boolean value that specifies whether the AD RMS Licensing service and the AD RMS Account Certification service have been decommissioned. |
| Servers |
Retrieves a collection that contains the names of the servers in the AD RMS cluster. |
| Urls |
Retrieves an Urls object that contains enterprise service URLs. |
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 a ClusterInformation object. Determine whether the
' referenced site has been decommissioned.
SUB ChkClusterInfo()
DIM cluster_info
SET cluster_info = config_manager.ClusterInformation
CheckError()
IF cluster_info.IsDecommissioned THEN
CALL WScript.Echo( " ***The site is decommissioned***" )
EXIT SUB
END IF
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 |
|