VB脚本 - 邮箱权限查找器

时间:2013-05-17 10:26:36

标签: vbscript active-directory exchange-server-2003

我遇到了以下设置并试图找出18的AceFlag值意味着什么,上下文如下:

dn = "LDAP://" & replace(rs.Fields("distinguishedName").Value,"/","\/")
    set objuser = getobject(dn)
Set oSecurityDescriptor = objuser.Get("msExchMailboxSecurityDescriptor")
Set dacl = oSecurityDescriptor.DiscretionaryAcl
Set ace = CreateObject("AccessControlEntry")

For Each ace In dacl
if ace.AceFlags <> 18 then
end if

有人有任何想法吗?

1 个答案:

答案 0 :(得分:1)

这意味着ACE是一个继承的容器ACE(0x10 + 0x02)。请参阅here