Note
Access to this page requires authorization. You can try signing in or changing directories.
Access to this page requires authorization. You can try changing directories.
The KeyContainer property retrieves the name of the cryptographic key container used to store the private key.
This property is read-only.
Syntax
ServicePrivateKeyProtectionInformation.KeyContainer
Property value
This property returns a string value.
Remarks
For more information, see Cryptographic Service Providers.
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 information about the server licensor private key.
SUB GetKeyInfo()
DIM keyInfo
' Retrieve the ServicePrivateKeyProtectionInformation object.
SET keyInfo = _
config_manager.Enterprise.ServicePrivateKeyProtectionInformation
CheckError()
' Retrieve the name of the key container.
CALL WScript.Echo("Container name: " & keyInfo.KeyContainer)
CheckError()
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 |
|