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.
| Property | Description |
|---|---|
| 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 |
|