ExcludedUserAccount.PublicKey property
The PublicKey property specifies or retrieves the public key of the user to be excluded.
Syntax
ExcludedUserAccount.PublicKey
Property value
This property specifies or returns a string value.
Remarks
You can exclude a user by public key or by user ID but not both. To exclude a user by ID, call the UserId 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()
' Identify the excluded public key.
excludedUser.PublicKey = "D3QgTm9y1ujYqiy4tocvmnyvnlp" _
& "kthp5+TrtF94qJN/I38bxALpAj9ExB4Do6P+rHWvMR+0HztV7Yelo" _
& "B3r2IlX2lQYe7mxZwnF2D5/7GUzPj5hKxCT/By55tX3Bzs4Eno7cX" _
& "fTeJ6mnMDO+KyjNoObg9kPRCy2hmHhj2ftRvLk="
CheckError()
' Retrieve the ExcludedUSerAccountCollection object.
SET excludedUserColl = exclusionPolicy.UserAccounts
CheckError()
' Enable the collection.
excludedUserColl.Enabled = TRUE
' Add the new public key to the collection.
excludedUserColl.Add( excludedUser )
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 |
|