How to make a login page using the Windows Autentication (ASP 3.0)

I need to make a login page in ASP 3.0 (Classic) but without using a database to store the user and password.  Instead I need to use the Windows Active Directory Authentication.
I already have the Username by Request.ServerVariables("LOGON_USER"), but I'm still missing the password authentication.  How can I program it?
enriquegm82Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

enriquegm82Author Commented:
Thanks for your reply.  What is LDAP and how can I obtain or capture the Domain password to compare it with the written in the textbox?
The connection string to LDAP would be the same for WinNT or Win2000 or WinXP?
0
golfDoctorCommented:
I just provided a link with a ton of example.  Did you review it?
0
Cloud Class® Course: Microsoft Windows 7 Basic

This introductory course to Windows 7 environment will teach you about working with the Windows operating system. You will learn about basic functions including start menu; the desktop; managing files, folders, and libraries.

enriquegm82Author Commented:
Yes, i have review it, and I'd like to know how to get the servername, this is one of the parameters to construct the string.
0
golfDoctorCommented:
This is clear example use querying LDAP:
http://www.aspfree.com/c/a/ASP/Performing-Web-Authentication-and-Administration-with-LDAP/

Not sure what server name you are referring to?  You should know the name of the servers you are working with.  
0
enriquegm82Author Commented:
golfDoctor, this example is using a commercial component --> IP*Works! LDAP component  from /n software.
I need to do the programming in pure ASP without buying a commercial component, could you please provide me another example?
0
golfDoctorCommented:
Yikes, I pulled the wrong link out of the millions of other examples :)
http://www.4guysfromrolla.com/webtech/041800-1.shtml

There's a ton of exact example on this, plus the links I have provided.  You need to know the servers you are querying against, no matter what.
0
enriquegm82Author Commented:
Good Example golfDoctor, but It's not exactly what I need.
The user will enter his domain user and password, the same he used to log into Windows.
With the user and password, I have to validate if it's correct and grant access to the web site, if not send a message of fail authentication.
0
golfDoctorCommented:
You're not going to find exactly what YOU need, the goal is for you to understand how it works so you can develop it yourself.   The examples show how this works, so you can now implement it for your own purposes.
0
enriquegm82Author Commented:
Yes, you can golfDoctor.
Here it goes:

strUsername  = Trim(Request.Form("txtUsername"))
strPassword = Trim(Request.Form("txtPassword"))

'Get User Domain
UserDomain  = Request.ServerVariables("LOGON_USER")
User     = Right(UserDomain,(len(UserDomain)-instr(UserDomain,"\")))
strDomain  = Mid(UserDomain,1,instr(UserDomain,"\")-1)

On Error resume Next

Set oIADS = GetObject("WinNT:").OpenDSObject("WinNT://" & _
            strDomain, _
            strUsername, _
            strPassword, _
            ADS_SECURE_AUTHENTICATION)

If Err.number <> 0 Then
        'Authentication Failure
Else
        'Authentication Success!
End if
0
golfDoctorCommented:
He is new to the forum and doesn;t understand how it works I guess.  But I answered he question, and/or provided the resource for him to solve the problem
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Software

From novice to tech pro — start learning today.