ClusterInformation.ClusterType property

The ClusterType property retrieves an integer value that identifies whether the AD RMS cluster supports the RMS Licensing web service or the RMS Account Certification web service.

This property is read-only.

Syntax

ClusterInformation.ClusterType

Property value

This read-only property returns a bitwise combination of the following values. You can test the return value by using the appropriate integer or the associated property from the Constants object.

None (0x0)

Licensing and certification are not supported.

ClusterTypeLicensing (0x1)

The licensing service is supported.

ClusterTypeCertification (0x2)

The certification service is supported.

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 the cluster type.

SUB GetClusterType()

  DIM cluster_info
 
  SET cluster_info = config_manager.ClusterInformation
  CheckError()

  CALL WScript.Echo("The cluster type is " _
                    & cluster_info.ClusterType)

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

See also

ClusterInformation