DeleteAccessEntry
(
AccessEntry As IAccessEntry
);
Parameters
[in] IAccessEntry AccessEntry
ACE to be deleted
Description
This method removes the ACE that matches the AccessEntry
passed to it.
Example
Dim ObjSec As
IObjectSecurity
Dim ACE As IAccessEntry
Dim AccessList As IaccessList
Set ObjSec =
CreateObject("DirectScript.ObjectSecurity")
ObjSec.AttachFile "FileName"
Set AccessList = ObjSec.GetAccessList
For Each ACE in AccessList
If (ACE.Trustee = "SomeDomain\SomeUser") then
AccessList.DeleteAccessEntry ACE
End if
Next ACE
See Also