GetAccessList () As IAccessList;
Parameters
None
Description
Gets the access list for this Object.
Example
Dim AuditSec As IAuditSecurity
Dim ACL As IAccessList
Dim strFilePath As String
Dim ACE As IAccessEntry
strFilePath = "d:\test.txt"
Set AuditSec = CreateObject("DirectScript.ObjectSecurity")
'Attach to the File d:\test.txt on the local machine
AuditSec.AttachFile strFilePath
Set ACL = AuditSec.GetAccessList()
For Each ACE in ACL
Debug.Print ACE.Trustee
Next ACE
See Also