ExcludedUserAccount.UserId property
The UserId property specifies or retrieves the email address of the user.
Syntax
ExcludedUserAccount.UserId
Property value
This property specifies or returns a string that contains an email address such as someone@example.com.
Remarks
You can exclude a user by public key or by user ID but not both. To exclude a user by public key, call the PublicKey property. The user ID is an email address.
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
' *******************************************************************
' Exclude user accounts.
SUB ExcludeUser()
DIM exclusionPolicy
DIM excludedUser
DIM excludedUserColl
Dim excludedUserType
Dim excludedUserDate
' Retrieve the ExclusionPolicy object.
SET exclusionPolicy = config_manager.Enterprise.ExclusionPolicy
CheckError()
' Create an ExcludedUserAccount object.
SET excludedUser = CreateObject( _
"Microsoft.RightsManagementServices.Admin.ExcludedUserAccount")
CheckError()
' Set the user ID.
excludedUser.UserId = "someone@example.com"
CheckError()
' Retrieve the ExcludedUSerAccountCollection object.
SET excludedUserColl = exclusionPolicy.UserAccounts
CheckError()
' Enable the collection.
excludedUserColl.Enabled = TRUE
' Add the new user account to the collection.
excludedUserColl.Add( excludedUser )
CheckError()
' Retrieve the user type.
excludedUserType = excludedUser.Type
CheckError()
' Retrieve the date on which the user account was excluded.
excludedUserDate = excludedUser.Date
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
Requirements
| Minimum supported client |
None supported |
| Minimum supported server |
Windows Server 2008 |
| Assembly |
|