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 |
|