ASP & Active Directory

Steven Marshall · Mar 2, 2005

I would like to check login credentials, ie username and password, from
Active Directory via an asp page. This will allow users to login to a
restricted area of the website using their windows login and password. I
read a thread about it on here, but it just said that it was possible, it
didn't say how it was possible. Any suggestions? Examples would be
EXCELLENT.

Tom Kaminski [MVP] · Mar 2, 2005

Steven Marshall said:
I would like to check login credentials, ie username and password, from
Active Directory via an asp page. This will allow users to login to a
restricted area of the website using their windows login and password. I
read a thread about it on here, but it just said that it was possible, it
didn't say how it was possible. Any suggestions? Examples would be
EXCELLENT.

here you go ...

<html>
<head>
</head>
<body>
<form action=authad.asp method=post>
Username: <input type=text name=strUserName> 
Password: <input type=password name=strPassword> 
<input type=submit name=btnSubmit>
</form>
<%
If Request.Form("strUsername") <> "" Then
Dim strADsPath
strADsPath = "WinNT://yourdomain"

'userid =
strUserName = "yourdomain\" & Request.Form("strUserName")
strPassword = Request.Form("strPassword")

if (not strADsPath= "") then 'if and ADS Object path has been provided
proceed with authentication

' bind to the ADSI object and authenticate Username and password
Dim oADsObject
Set oADsObject = GetObject(strADsPath)
response.write "Authenticating... "
Dim strADsNamespace
Dim oADsNamespace
strADsNamespace = left(strADsPath, instr(strADsPath, ":"))
set oADsNamespace = GetObject(strADsNamespace)
Set oADsObject = oADsNamespace.OpenDSObject(strADsPath, strUserName,
strPassword, 0)
' we're only bound if err.number = 0
if not (Err.number = 0) then
Response.Write "Authentication has
failed..."
'Response.Write "Failed to bind to object " & strADsPath & " "
'response.write err.description & ""
'Response.write "Error number is " & err.number & " "
Session("Auth") = "NO"
else
Response.Write "USER AUTHENTICATED! "
'Response.Write "Currently viewing object at " & oADsObject.ADsPath &
" "
'Response.Write "Class is " & oADsObject.Class & " "
Session("Auth") = "YES"
end if
'response.write ""
end if
End If
%>
</body>
</html>

Steven Marshall · Mar 2, 2005

A@T said:
here you go ...

<html>
<head>
</head>
<body>
<form action=authad.asp method=post>
Username: <input type=text name=strUserName> 
Password: <input type=password name=strPassword> 
<input type=submit name=btnSubmit>
</form>
<%
If Request.Form("strUsername") <> "" Then
Dim strADsPath
strADsPath = "WinNT://yourdomain"

'userid =
strUserName = "yourdomain\" & Request.Form("strUserName")
strPassword = Request.Form("strPassword")

if (not strADsPath= "") then 'if and ADS Object path has been provided
proceed with authentication

' bind to the ADSI object and authenticate Username and password
Dim oADsObject
Set oADsObject = GetObject(strADsPath)
response.write "Authenticating... "
Dim strADsNamespace
Dim oADsNamespace
strADsNamespace = left(strADsPath, instr(strADsPath, ":"))
set oADsNamespace = GetObject(strADsNamespace)
Set oADsObject = oADsNamespace.OpenDSObject(strADsPath, strUserName,
strPassword, 0)
' we're only bound if err.number = 0
if not (Err.number = 0) then
Response.Write "Authentication
has
failed..."
'Response.Write "Failed to bind to object " & strADsPath & " "
'response.write err.description & ""
'Response.write "Error number is " & err.number & " "
Session("Auth") = "NO"
else
Response.Write "USER AUTHENTICATED! "
'Response.Write "Currently viewing object at " & oADsObject.ADsPath &
" "
'Response.Write "Class is " & oADsObject.Class & " "
Session("Auth") = "YES"
end if
'response.write ""
end if
End If
%>
</body>
</html>

When I use a valid login it works and gives me the "USER AUTHENTICATED!",
however when I use an invalid login, I get:

Authenticating...

error '8007052e'

/authad.asp, line 42

Line 42 is "Set oADsObject = oADsNamespace.OpenDSObject(strADsPath,
strUserName, strPassword, 0)". All on one line.

Thanks for the help!

connecting problem in vb.net with ldap to active directory	1	Sep 26, 2016
ASP and Active Directory	1	Dec 16, 2004
Script works fine on test server but not on production server	3	Jul 23, 2020
ASP & Active Directory	3	Sep 30, 2004
Authenticate against Active Directory	4	May 7, 2008
ASP.NET and Active Directory	3	Oct 14, 2005
how to access Active Directory from ASP	1	Aug 15, 2005
Glassfish and Windows Active Directory	1	Nov 19, 2009

ASP & Active Directory

Steven Marshall

Tom Kaminski [MVP]

Steven Marshall

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads