Constants.KeyHierarchyProduction property
The KeyHierarchyProduction property retrieves a value that specifies a production certificate hierarchy.
This property is read-only.
Syntax
Constants.KeyHierarchyProduction
Property value
This property returns an integer value (0x2).
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 |
|