Permission Checker

<%@ Language = VBScript%> <% Option Explicit %> Permission Checker Permission Checker
<% 'Instantiate Permission Checker Component. Dim objPermCheck Set objPermCheck = Server.CreateObject("MSWC.PermissionChecker") %>

Verify current user's access to a sample file:

Using Physical Path = <%= objPermCheck.HasAccess(".\PermissionCheck_VBScript.asp") %>

Using Virtual Path = <%= objPermCheck.HasAccess("/iissamples/sdk/asp/components/PermissionCheck_VBScript.asp") %>