<% @ LANGUAGE = VBScript %>
<% Option Explicit %>
<% Response.Buffer=TRue %>
Show Client Certificate Mapping Display Client Certificate Mapping
For this sample to work properly, You need to do following:
1.uncheck anonymous authentication. Here is a list of client mappings on default web server
<%
Dim objW3svr, objCertMapper, vntCert, vntAccnt, vntPassword, strMapName, bEnabled
Dim i
Err.Clear
On Error Resume Next
Set objW3svr=GetObject("IIS://Localhost/W3SVC/1")
If Err.number <>0 Then
Response.Write "GetObject function failed. You might not have the right perm "
Response.End
End if
%>
NT Account
Mapping Name
Enabled
<% For Each objCertMapper In objW3svr
If UCASE(objCertMapper.class) = "IISCERTMAPPER" Then
i=1
objCertMapper.GetMapping 4, CStr(i), vntCert, vntAccnt, vntPassword, strMapName, bEnabled
Do While Err.Number = 0 %>
<% = vntAccnt %>
<% = strMapName %>
<% If bEnabled Then %> True<% Else %> False <% End If %>
<% i=i+1
objCertMapper.GetMapping 4,CStr(i), vntCert, vntAccnt, vntPassword, strMapName, bEnabled
Loop
Set objCertMapperr = Nothing
End If
Next
%>