ADFederationService.IsProxyEmailAddressesAllowed property

The IsProxyEmailAddressesAllowed property specifies or retrieves a Boolean value that indicates whether proxy email addresses can be used to identify users.

Syntax

ADFederationService.IsProxyEmailAddressesAllowed

Property value

This property specifies or retrieves a Boolean value. A value of True indicates that proxy email addresses are allowed.

Remarks

An email account can have more than one identity if it can be accessed in more than one way. Internet access (as opposed to local network access within an organization) is often routed through a proxy server. Specifying True for the IsProxyEmailAddressesAllowed property allows the AD RMS service to accept alternate address configurations for the same email account.

If the IsSupported property value is false, the IsProxyEmailAddressesAllowed property throws an exception.

The ADFS service must be enabled before this property is called. For more information, see Enabled.

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

' *******************************************************************
' Specify ADFS information.

SUB SetADFS()
    
  DIM objADFS

  SET objADFS = _
    config_manager.Enterprise.TrustPolicy.ADFederationService
  CheckError()
        
  IF objADFS.IsSupported = TRUE THEN
    objADFS.Enabled = true
    CheckError()

    objADFS.ValidityPeriodInDays = 10
    CheckError()

    objADFS.RightsAccountCertificateRequestUrl = _
        "https://www.example.com"
    CheckError()

    objADFS.IsProxyEmailAddressesAllowed = TRUE
    CheckError()
  END IF

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

ADFederationService