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

33 lines
664 B
Plaintext
Raw Permalink Normal View History

2020-09-26 03:20:57 -05:00
# -
# 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