Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
[blue] Dim oAdsSecurity
Dim oAdsSD
Dim ACL
Dim ACE
Set oAdsSecurity = CreateObject("ADsSecurityUtility")
Set oAdsSD = oAdsSecurity.GetSecurityDescriptor("c:\temp", 1, 1)
Set ACL = oAdsSD.DiscretionaryAcl
For Each ACE In ACL
MsgBox "Account: " & ACE.Trustee & vbCrLf & "Access mask: " & Hex(ACE.AccessMask) & vbCrLf & "Type: " & IIf(ACE.AceType = 0, "Allowed", "Denied") ' not quite true, there are other types than Denied if type <>0
Next[/blue]