TemplateLocaleNameCollection object
The TemplateLocaleNameCollection object manages a collection of TemplateLocaleName objects. Each object in the collection defines a name and locale ID (LCID) pair for a template. The collection is used by the Copy method on the RightsTemplateCollection object.
The TemplateLocaleNameCollection object has these types of members:
The TemplateLocaleNameCollection object has these methods.
Method | Description |
---|---|
Add | Adds an object to the collection (inherited from IList). |
Clear | Removes all objects from the collection (inherited from IList). |
Contains | Determines whether the collection contains a specific object (inherited from IList). |
CopyTo | Copies the collection elements to an array, starting at a specified index (inherited from ICollection). |
IndexOf | Retrieves the index of a specific object in the collection (inherited from IList). |
Insert | Inserts an object in the collection at the specified index (inherited from IList). |
Remove | Removes the first occurrence of the specified object from the collection (inherited from IList). |
RemoveAt | Removes the object at the specified index from the collection (inherited from IList). |
The TemplateLocaleNameCollection object has these properties.
Property | Description |
---|---|
Count |
Retrieves the number of objects contained in the collection (inherited from ICollection). |
Item |
Specifies or retrieves the object at the specified index (inherited from IList). |
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
' *******************************************************************
' Copy a Rights Template.
SUB CopyTemplate()
DIM templateMgr
DIM template
DIM localeInfo
DIM localeInfoColl
DIM retTemplate
' Retrieve the RightsTemplatePolicy object.
SET templateMgr = config_manager.RightsTemplatePolicy
CheckError()
' Retrieve the first item in the collection.
Set template = templateMgr.RightsTemplateCollection.Item(0)
CheckError()
' Create a locale name collection object and locale name object.
SET localeInfo = CreateObject( "Microsoft." _
& "RightsManagementServices.Admin.TemplateLocaleName")
SET localeInfoColl = CreateObject( "Microsoft." _
& "RightsManagementServices.Admin.TemplateLocaleNameCollection")
CheckError()
' For the U.S. English language (LCID = 1033), create a new
' template name. Create a new name for each relevant LCID.
localeInfo.LanguageId = 1033
localeInfo.Name = "New name"
localeInfoColl.Add( localeInfo )
CheckError()
' Create the new template.
SET retTemplate = templateMgr.RightsTemplateCollection.Copy( _
template.Id, _
localeInfoColl)
CheckError()
IF IsNull(retTemplate.Id) OR LEN(retTemplate.Id) = 0 THEN
CALL RaiseError(-408, "Fail to call Copy().")
END IF
CALL WScript.Echo( "Template.Copy(): Count=" _
& templateMgr.RightsTemplateCollection.Count _
& " New-ID=" & retTemplate.Id)
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
' *******************************************************************
' Generate a runtime error.
SUB RaiseError(errId, desc)
CALL Err.Raise( errId, "", desc )
CheckError()
END SUB
Minimum supported client |
None supported |
Minimum supported server |
Windows Server 2008 |
Assembly |
|