TrustPolicy object

The TrustPolicy object can be used to retrieve multiple objects that collectively define the AD RMS trust policy. You can use these objects to manage trusted domains, Windows Live ID domains, and the interaction between Active Directory Federation Services (ADFS) and AD RMS. You can retrieve the trust policy object by calling the TrustPolicy property on the Enterprise object.

Members

The TrustPolicy object has these types of members:

Properties

The TrustPolicy object has these properties.

PropertyDescription

ADFederationService

Retrieves an object that manages AD RMS use of ADFS.

OnlineTrustedServiceUserDomain

Retrieves a Windows Live ID domain object.

TrustedPublishingDomains

Retrieves a collection of trusted publishing domain objects.

TrustedUserDomains

Retrieves a collection of trusted user domain objects.

 

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 the trust policy object.

SUB GetTrustPolicy()

  DIM trustPolicy

  ' Retrieve the trust policy object.
  SET trustPolicy = config_manager.Enterprise.TrustPolicy
  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

Minimum supported client

None supported

Minimum supported server

Windows Server 2008

Assembly

Microsoft.RightsManagementServices.Admin.dll

See also

Active Directory Rights Management Services Scripting API Reference
ADFederationService
OnlineTrustedServiceUserDomain
TrustedPublishingDomainCollection
TrustedUserDomainCollection

 

 

Show: