WMRMLicGen.MeteringCertificate
The MeteringCertificate property specifies and retrieves the metering certificate to use for metering content.
Syntax
WMRMLicGen.MeteringCertificate = String
String = WMRMLicGen.MeteringCertificate
Parameters
This property takes no parameters.
Return Values
If the property succeeds, it returns a String in XML format containing a metering certificate. NULL indicates that a metering certificate has not been set. If it fails, it returns a number in the error object.
Remarks
After specifying a metering certificate, the metering ID is extracted from the certificate and is included in the license, which enables metering for the content.
Example Code
' Declare variables.
Dim LicenseObj ' WMRMLicGen object
Dim MeterCert ' Metering certificate
Dim LicenseKID ' Key ID
Dim LicenseKey ' Key
Dim RightsString ' Rights string
Dim varClientInfo ' Client information
Dim ContentServerPubKey ' Public key of the content server
Dim IndiVersion ' Security version of the DRM component
Dim varLicense ' License
' Specify your metering certificate (XML string).
' VBScript requires you to use double quotes for quotes within the string.
MeterCert = "<METERCERT version=""1.0""><DATA><MID>pIKx8Wsy5aYRQN8LLIIcTQ==</MID><PUBLICKEY>nm0yQ6CXLcQIBf*Zc*VKGL!SziEdTT!ehGxDotUazwFtE7X40IlqAQ==</PUBLICKEY><URL>https://www.MyMeteringService.com</DATA><CERTIFICATECHAIN><CERTIFICATE>AAEAADgAAAB17bfg!cqDLB2clHGU7P6zkrOCVUddX95UYkqpjqvoIr4ezqw2zgwfrvKR1dq!EzdGD8ND2Ihkn0OPEoWZZKCwgidp7Y5SHR!NFJJazdPWfBQEBB4AAAABAAAAAQAAAAE=</CERTIFICATE></CERTIFICATECHAIN><SIGNATURE><HASHALGORITHM type=""SHA""></HASHALGORITHM><SIGNALGORITHM type=""MSDRM""></SIGNALGORITHM><VALUE>dvVMtj5p9o7I5IK2XIYwkQoF1Rli4cgpS1UkCjBx8KIr7SrPE9!0Vg==</VALUE></SIGNATURE></METERCERT>"
' Generate the license.
Set LicenseObj = Server.CreateObject("WMRMObjs.WMRMlicgen")
LicenseObj.KeyID = LicenseKID
LicenseObj.SetKey "", LicenseKey
LicenseObj.Priority = 10
LicenseObj.Rights = RightsString
LicenseObj.ClientInfo = varClientInfo
LicenseObj.BindToPubKey = ContentServerPubKey
LicenseObj.MeteringCertificate = MeterCert
LicenseObj.IndividualizedVersion = IndiVersion
varLicense = LicenseObj.GetLicenseToDeliver()
Requirements
Version: Windows Media Rights Manager 10 SDK
Reference: wmrmobjs 1.0 Type Library
Library: wmrmobjs.dll
Platform: Windows Server 2003
See Also