windows-server-2003/com/oleutest/accctrl/tstsuite/test8.in

# -
# This test verifies whether RevokeAccessRights works
# -
# Initialize new ACL
Exec InitNewACL

# Set the current user to rayland\actest1 adn add it to the local access request list
Set TrusteeName rayland\actest1
ToggleAccessPerm COM_RIGHTS_EXECUTE
AddTrustee AccessRequestList

# Call GrantAccessRights
Exec GrantAccessRights

# Change client's security context
SwitchClientCtx
actest1
rayland


# Call IsAccessPermitted
Exec IsAccessPermitted

# Add current trustee to local trustee list
AddTrustee TrusteeList

# Call RevokeExplicitAccessRights
Exec RevokeExplicitAccessRights

# Call IsAccessPermitted
Exec IsAccessPermitted

# Call GetExplicitAccessRights
Exec GetExplicitAccessRights

# Kill server
Quit