ADSI error '80070035'

[LluviaRamirez]

Hola, mi intencion es restringir el acceso a determinadas aplicaciones web, Cuando un usuario quiera entrar a la sección Finanzas, salga la ventanita de Windows pidiendo su usuario y pw, si pertenece al grupo Finanzas pues lo deje pasar.
1o.- Como puedo hacer que la ventanita de windows salga?
2o.- Con el siguiente codigo podria leer y comparar su usuario?
Dim objUsuario ' Objeto User
Dim stDominio ' Dominio
Dim stUsuario ' Nombre de usuario
Dim stPathADSI ' Ruta ADSI del usuario

' Definimos dominio, maquina, y usuario.
stDominio = "midominio.com.mx"
stUsuario = "miusuario"

' Componemos la ruta ADSI.
stPathADSI = "WinNT://" & stDominio & "/" & stUsuario
' Obtenemos la referencia al objeto User correspondiente al usuario.
Set objUsuario = GetObject( stPathADSI )
%>

<b>Path ADSI:</b> <%=objUsuario.ADsPath%>
<br />
<b>Clase:</b> <%=objUsuario.Class%>
<br />
<b>GUID:</b> <%=objUsuario.GUID%>
<br />
<b>Nombre:</b> <%=objUsuario.Name%>
<br />
<b>Path ADSI Objeto Padre:</b> <%=objUsuario.Parent%>
<br />
<b>Path ADSI del Schema:</b> <%=objUsuario.Schema%>

Voy bien o sigo perdida ?!