ExclusionPolicy.Lockbox
[This documentation is preliminary and is subject to change.]
The Lockbox property retrieves the minimum lockbox version that must be installed before a use license can be granted.
Property Lockbox
Property Value
This property returns an ExcludedLockbox object.
Remarks
Lockbox exclusion prohibits AD RMS from issuing an end-user license if the minimum version of the lockbox installed on the client is less than the version specified and lockbox exclusion has been enabled.
Example Code
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
' *******************************************************************
' Exclude lockboxes.
SUB ExcludeLockbox()
DIM exclusionPolicy
DIM lockbox
DIM minVersion
' Retrieve the ExclusionPolicy object.
SET exclusionPolicy = config_manager.Enterprise.ExclusionPolicy
CheckError()
' Retrieve the ExcludedLockbox object.
SET lockbox = exclusionPolicy.Lockbox
CheckError()
IF IsObject(lockbox) <> TRUE THEN
CALL RaiseError(-870, "Failed to retrieve ExcludedLockbox")
END IF
' Enable lockbox exclusion.
lockbox.Enabled = TRUE
CheckError()
' Create a Version object.
SET minVersion = CreateObject( _
"Microsoft.RightsManagementServices.Admin.Version")
' Set the minimum version to 5.0.0.0.
minVersion.Major = 5
minVersion.Minor = 0
minVersion.Build = 0
minVersion.Revision = 0
lockbox.LockboxMinimumVersion = minVersion
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
| Product | Requires Windows ServerĀ "Longhorn". |
| Library | Use Microsoft.RightsManagementServices.Admin.dll registered as a custom type library. |