Constants.KeyHierarchyPreproduction property

The KeyHierarchyPreproduction property retrieves a value that specifies a Pre-production certificate hierarchy.

This property is read-only.

Syntax

Constants.KeyHierarchyPreproduction

Property value

This property returns an integer value (0x1).

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

See also

Constants

KeyHierarchyOther

KeyHierarchyProduction