Permission Checker

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

Verify current user's access to a sample file:

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