windows-xp/Source/XPSP1/NT/com/oleutest/accctrl/tstsuite/test4.in

# -
# Grant access right to a user, perform access check for the same user, and obtain the ACL
# -
# Initialize a new ACL
Exec InitNewACL

# Add Rayland\actest1 to the local access request list
Set TrusteeName RayLand\AcTest1
ToggleAccessPerm COM_RIGHTS_EXECUTE
AddTrustee AccessRequestList

# Call GrantAccessRights
Exec GrantAccessRights

# Change the client's security context
SwitchClientCtx
actest1
rayland


# Call IsAccessPermitted
Exec IsAccessPermitted

# Call IsAccessPermitted again to see if the caching mechanism works
Exec IsAccessPermitted

# Call GetExplicitAccessRights to obtain the ACL
Exec GetExplicitAccessRights

# Shut down the server
Quit