WMRMRights.GetAllRights
The GetAllRights method packages all rights into a string for delivery to the WMRMLicGen object.
Syntax
String = WMRMRights.GetAllRights()
Parameters
This method takes no parameters.
Return Values
If the method succeeds, it returns a String containing the rights that will be specified in the license. If it fails, it returns E_FAIL, 0x80004005.
Remarks
Use the string in the WMRMLicGen object to generate a license with the specified rights.
Example Code
' Before you can issue a license, you must specify the consumer's
' rights and set them in the WMRMLicGen object.
' Declare objects.
Dim sRights
Dim RightsObj
Dim LicGenObj
' Create objects.
Set RightsObj = Server.CreateObject("Wmrmobjs.WMRMRights")
Set LicGenObj = Server.CreateObject("Wmrmobjs.WMRMLicGen")
' Reset the WMRMRights object.
RightsObj.Reset()
' Specify the rights that will be granted to the consumer.
RightsObj.AllowBackupRestore = True
RightsObj.AllowPlay = True
RightsObj.BeginDate = "#20050101Z#"
RightsObj.ExpirationDate = "#20051231Z#"
RightsObj.DisableOnClockRollback = True
' Retrieve the string containing the rights.
sRights = RightsObj.GetAllRights()
' Set the rights in the license generator.
LicGenObj.Rights = sRights
' Continue the license issuing process.
Requirements
Version: Windows Media Rights Manager 7 SDK or later
Reference: wmrmobjs 1.0 Type Library
Library: wmrmobjs.dll
Platform: Windows Server 2003
See Also