Constants.KeyHierarchyOther property

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

See also

Constants
KeyHierarchyPreproduction
KeyHierarchyProduction

 

 

Show: