Use the ICISite interface GetFolderPermissions method to retrieve a list of all folder permissions, including inherited permissions.
Signature:
HRESULT GetFolderPermissions(
[in] BSTR bstrFolder,
[out, retval] VARIANT *aPermissions);
Example:
Dim arPermissions: arPermissions = oSite.GetFolderPermissions("/usr/test")
For iCount = LBound(arPermissions) To UBound(arPermissions)
Set oPermission = arPermissions(iCount)
WScript.Echo oPermission.Folder & " - " & oPermission.Client
Next