ExcludedUserAccountCollection::Refresh method
The Refresh method refreshes the collection from the collection saved on the server.
Syntax
Sub Refresh()
Parameters
This method has no parameters.
Return value
This method does not return a value.
Remarks
All of the items in the current collection object will be overwritten. Use this method to refresh your collection to ensure that you have the latest updates made by other administrators.
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 RefreshExludedUsers()
DIM exclusionPolicy
DIM excludedUser
DIM excludedUserColl
' Retrieve the ExclusionPolicy object.
SET exclusionPolicy = config_manager.Enterprise.ExclusionPolicy
CheckError()
' Retrieve the ExcludedUSerAccountCollection object.
SET excludedUserColl = exclusionPolicy.UserAccounts
CheckError()
' Enable the collection.
excludedUserColl.Enabled = TRUE
' Refresh the collection.
excludedUserColl.Refresh()
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 |
|