admin
base
com
developer
drivers
ds
enduser
inetcore
inetsrv
iis
admin
browseinfo
config
exe
iisrearc
img
admsamp
aspjava
common
custerr
help
htmla
htmlraid
psdksamp
admin
asp
applications
components
counters
cdo_jscript.asp
cdo_vbscript.asp
contentrotator_jscript.asp
contentrotator_vbscript.asp
filesystem_jscript.asp
filesystem_vbscript.asp
pagecounter_jscript.asp
pagecounter_vbscript.asp
permissioncheck_jscript.asp
permissioncheck_vbscript.asp
tiprot.txt
tools_jscript.asp
tools_vbscript.asp
database
interaction
queuing
simple
transactional
components
isapi
scripts
sdksamp
wwwroot
default.htm
dirs
extcomp.ini
iisperf.pmc
inetstp.hlp
logtemp.sql
inc
last
lkrhash
qfetools
setup
staxinc
svcs
ui
utils
bldzip.pl
clean.bat
coffbase.txt
dirs
guids.txt
iisntw.chm
inetrel.cmd
internet.mk
k2ver.pl
make128.cmd
makefile
makefile.chi
mkdev.cmd
mksample.cmd
mkwebcat.cmd
place.inc
place51.inc
placefil.txt
placefil5.txt
project.mk
sdkdrop.bat
update.cmd
wcrel.cmd
intlwb
msmq
published
query
dirs
project.mk
loc
mergedcomponents
multimedia
net
printscan
public
published
sdktools
shell
termsrv
tools
windows
dirs
makefil0
39 lines
1.1 KiB
Plaintext
39 lines
1.1 KiB
Plaintext
<%@ Language = VBScript%>
|
|
<% Option Explicit %>
|
|
|
|
<!*************************
|
|
This sample is provided for educational purposes only. It is not intended to be
|
|
used in a production environment, has not been tested in a production environment,
|
|
and Microsoft will not provide technical support for it.
|
|
*************************>
|
|
|
|
<HTML>
|
|
<HEAD>
|
|
<TITLE>Permission Checker</TITLE>
|
|
</HEAD>
|
|
|
|
<BODY BGCOLOR="White" TOPMARGIN="10" LEFTMARGIN="10">
|
|
|
|
<!-- Display header. -->
|
|
|
|
<FONT SIZE="4" FACE="ARIAL, HELVETICA">
|
|
<B>Permission Checker</B></FONT><BR>
|
|
|
|
<%
|
|
'Instantiate Permission Checker Component.
|
|
|
|
Dim objPermCheck
|
|
Set objPermCheck = Server.CreateObject("MSWC.PermissionChecker")
|
|
%>
|
|
|
|
<P>Verify current user's access to a sample file:
|
|
|
|
<P>Using Physical Path =
|
|
<%= objPermCheck.HasAccess(".\PermissionCheck_VBScript.asp") %> <BR>
|
|
|
|
<P>Using Virtual Path =
|
|
<%= objPermCheck.HasAccess("/iissamples/sdk/asp/components/PermissionCheck_VBScript.asp") %>
|
|
|
|
</BODY>
|
|
</HTML>
|