Share via


Constants.ExcludedExternalUserType property

The ExcludedExternalUserType property retrieves a value that specifies an external user account.

This property is read-only.

Syntax

Constants.ExcludedExternalUserType

Property value

This property returns an integer value (0x2) that identifies an external user account.

Remarks

The property value can be used with the UserType property on the ExcludedUserAccount object.

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 type of each excluded user.

SUB GetExclUserType()

  DIM exclPolicy
  DIM exclUser
  DIM exclUserColl
  DIM constant

  ' Retrieve the Constants object.
  SET constant = config_manager.Constants

  ' Retrieve the ExclusionPolicy object.
  SET exclPolicy = config_manager.Enterprise.ExclusionPolicy
  CheckError()

  ' Retrieve the ExcludedUSerAccountCollection object.
  SET exclUserColl = exclusionPolicy.UserAccounts
  CheckError()

 ' Loop through the collection and retrieve the user type.
  For Each exclUser in exclUserColl
   CALL WScript.Echo("UserId: " & exclUser.UserId)
   IF exclUser.UserType = constant.ExcludedDomainUserType THEN
    CALL WScript.Echo("Excluded user is domain type.")
   ELSEIF exclUser.UserType=constant.ExcludedExternalUserType THEN
    CALL WScript.Echo("Excluded user is external type.")
   ELSEIF exclUser.UserType=constant.ExcludedFederationUserType THEN
    CALL WScript.Echo("Excluded user is ADFS type.")
   ELSE
    CALL WScript.Echo("Excluded user type cannot be determined.")
   END IF
  Next

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

Requirements

Minimum supported client
None supported
Minimum supported server
Windows Server 2008
Assembly
Microsoft.RightsManagementServices.Admin.dll

See also

Constants

ExcludedDomainUserType

ExcludedFederationUserType