Constants.KeyHierarchyOther property

Article
05/31/2018

The KeyHierarchyOther property retrieves a value that specifies an undefined certificate hierarchy.

This property is read-only.

Syntax

Constants.KeyHierarchyOther

Property value

This property returns an integer value (0x3).

Remarks

This property can be used with the KeyHierarchy property on the ServerLicensorCertificate object. For more information about certificate hierarchies, see Setting Up the Pre-production Development Environment and Certificate Hierarchy.

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 server licensor certificate and key hierarchy.

SUB GetSLC()

  DIM slc
  DIM environment
  DIM constant

  ' Retrieve the Constants object.
  SET constant = config_manager.Constants

  ' Retrieve the ServerLicensorCertificate object.
  SET slc = config_manager.Enterprise.ServerLicensorCertificate
  CheckError()

  ' Retrieve the certificate hierarchy.
  environment = slc.KeyHierarchy
  IF environment = constant.KeyHierarchyPreproduction THEN
    CALL WScript.Echo("Environment = Pre-Production.")
  ELSEIF  environment = constant.KeyHierarchyProduction THEN
    CALL WScript.Echo("Environment = Production.")
  ELSEIF environment = constant.KeyHierarchyOther THEN
    CALL WScript.Echo("Environment = Other.")
  ELSE
    CALL WScript.Echo("KeyHierarchy error.")
  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

Requirements


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

Share via