Iemand ervaring met ASP-pagina's met AD-authentication ?

Als ik m'n vbs-script rechtstreeks uitvoer dan gaat het op zoek bij welke groepen ik hoor. Als ik behoor tot groep domain users dan krijg ik toegang.
(note Domain Users mag dan wel niet de key group zijn van die welbepaalde gebruiker, indien nodig wijzig deze.)

Als ik datzelfde werkende script verwerk in een ASP-pagina dan krijg ik
een error "error '80072020'

Error blijkt te verwijzen dat je op je IIS-subfolder waar je pag. in staat
je Authentication Methods op "Enable anonymous access" dient te staan.
Dit kan natuurlijk niet de bedoeling zijn.

Weet iemand een oplossing?

Dit is alvast mijn huidige asp-paginacode (werkt als je anonymous aanvinkt (wat niet de bedoeling kan zijn natuurlijk)) :

<%@ Language=VBScript %>

<%
strToegangTOT="Domain Users"
strSpaces = "."
blnStatus=False

Set objSysInfo = CreateObject("ADSystemInfo")
strUserDN = objSysInfo.userName
set objUser = GetObject("LDAP://Vulindomeincontroller.Vulindomeinnaam.be/" & strUserDN)
set dicSeenGroup = CreateObject("Scripting.Dictionary")

%>
<h1><b><% =strUserDN %></b></h1><br><br>

<%

Function DisplayGroups (strToegangTOT, strObjectADsPath, strSpaces, dicSeenGroup, blnStatus)

   set objObject = GetObject(strObjectADsPath)
%>
 <% =strSpaces & objObject.Name%> <br>
<%
 if objObject.Name = "CN=" & strToegangTOT then
  blnStatus = true
  Exit function
 end if
   on error resume next
   if IsArray( objObject.Get("memberOf") ) then
      colGroups = objObject.Get("memberOf")
   else
      colGroups = Array( objObject.Get("memberOf") )
   end if
  
   for each strGroupDN In colGroups
      if Not dicSeenGroup.Exists(strGroupDN) and blnStatus=false then
         dicSeenGroup.Add strGroupDN, 1
         DisplayGroups strToegangTOT,"LDAP://" & strGroupDN, strSpaces & ".", dicSeenGroup, blnStatus
      end if
   next

   DisplayGroups=blnStatus

End Function

if DisplayGroups(strToegangTOT, "LDAP://" & strUserDN, strSpaces, dicSeenGroup, blnStatus) then
%>
<br><br><b>U HEEFT TOEGANG TOT <%=strToegangTOT%></b>
<%
else
%>
<br><br><b>U HEEFT GEEN TOEGANG TOT <%=strToegangTOT%></b>
<%
end if

%>