TrustedUserDomainCollection object

The TrustedUserDomainCollection object contains a collection of TrustedUserDomain objects. The collection enables AD RMS to process license requests from users whose rights account certificates (RACs) were issued by AD RMS installations in other forests. To import the external domains associated with another AD RMS installation, you can call the Import method and specify the external server licensor certificate. You can retrieve the collection by calling the TrustedUserDomains property on the TrustPolicy object.

Members

The TrustedUserDomainCollection object has these types of members:

• Methods
• Properties

Methods

The TrustedUserDomainCollection object has these methods.

Properties

The TrustedUserDomainCollection object has these properties.

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 trusted user domain collection.

SUB GetTrustedUsers()

  DIM trustPolicy
  DIM tudColl
  DIM Tud

  ' Retrieve the trust policy object.
  SET trustPolicy = config_manager.Enterprise.TrustPolicy
  CheckError()

  ' Retrieve the trusted user domain collection object.
  SET tudColl = trustPolicy.TrustedUserDomains
  CheckError()

  ' Remove all domains from the collection.
  tudColl.Clear()
  CheckError()

  ' Import new trusted user domains into the collection.
  SET Tud = tudColl.Import( "TUD_Name", _
                            "c:\certFile.bin", _
                            False)
  CheckError() 

  IF tudColl.Count < 1 OR IsNull(Tud.Id) THEN
    CALL RaiseError(-610, "Import failed.")
  END IF
 
  ' Remove the trusted user domain object.
  tudColl.Remove( Tud )
  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

' *******************************************************************
' Generate a runtime error.

SUB RaiseError(errId, desc)
  CALL Err.Raise( errId, "", desc )
  CheckError()
END SUB

Requirements

See also

Active Directory Rights Management Services Scripting API Reference

TrustedUserDomain