IAuditSecurity Method: GetAccessList

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