Listing 1: Code to Enable Pass-Through Authentication
NONEXECUTABLE

<%
Dim oVDr
Set oVD = GetObject("IIS://localhost/W3SVC/1/Root/Protected")
oVD.UNCAuthenticationPassThrough = True
oVD.SetIfno
Set oVD = Nothing
%>