Platform SDK: Exchange Server

Reading ACLs

The following Visual Basic, Scripting Edition (VBScript) example demonstrates how to use an instance of the ACLObject COM class to read the entries in a folder's access control list. Assume we have retrieved a folder in a previous part of the script, and we've stored the interface to the folder in a variable called fldr. Error handling has been removed for clarity.

set acl = createobject("MSExchange.aclobject")

set acl.cdoitem = fldr  ' previously retrieved CDO folder object

For Each ace in acl.Aces
  strID = ace.Id
  bitsrights = ace.Rights
  '  collect these and do something with them
Next ace

' when finished with the object, release it
Set acl = Nothing