Hello,
I found a very handy ASP Script
==========================
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>LDAP Authentication Test</title>
</head>
<body>
<%
dim submit
dim UserName
dim Password
UserName = ""
Password = ""
Domain = ""
submit = request.form("submit")
if submit = "Authenticate" then
UserName = request.form("UserName")
Password = request.form("Password")
Domain = request.form("Domain")
result = AuthenticateUser(UserName,
if result then
response.write "<h3>Authentication Succeeded!</h3>"
else
response.write "<h3>Authentication Failed!</h3>"
end if
end if
response.write "<hr><form method=post>"
response.write "<table>"
response.write "<tr>"
response.write "<td><b>Username: </b
response.write "</tr>"
response.write "<tr>"
response.write "<td><b>Password: </b
response.write "</tr>"
response.write "<tr>"
response.write "<td><b>AD Domain: </b></td><td>
response.write "</tr>"
response.write "<tr>"
response.write "<td> </td><td><input
response.write "</tr>"
response.write "</table>"
response.write "</form>"
response.end
function AuthenticateUser(UserName,
dim strUser
' assume failure
AuthenticateUser = false
strUser = UserName
strPassword = Password
strQuery = "SELECT cn FROM 'LDAP://" & Domain & "' WHERE objectClass='*' "
set oConn = server.CreateObject("ADODB
oConn.Provider = "ADsDSOOBJECT"
oConn.Properties("User ID") = strUser
oConn.Properties("Password
oConn.Properties("Encrypt Password") = true
oConn.open "DS Query", strUser, strPassword
set cmd = server.CreateObject("ADODB
set cmd.ActiveConnection = oConn
cmd.CommandText = strQuery
on error resume next
set oRS = cmd.Execute
if oRS.bof or oRS.eof then
AuthenticateUser = false
else
AuthenticateUser = true
end if
set oRS = nothing
set oConn = nothing
end function
%>
</body>
</html>
==========================
now I need to make the function "AuthenticateUser(UserName
I was trying allot to make a minimum modifications to this script but it didn't work !!!
any help
Thank you
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.
Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
hello thanks for the replay
It didn't work for me I tried
AuthenticateUser = "Found User: " & trim(RS("{description}"))
AuthenticateUser = "Found User: " & trim(RS("description"))
AuthenticateUser = "Found User: " & trim(oRS("{description}"))
AuthenticateUser = "Found User: " & trim(oRS("description"))
all of the didn't work
any other solution
Thanks I forgot to add "description" to the SQL syntax
but still !!
now
I have the sql syntax like this
strQuery = "SELECT cn, description FROM 'LDAP://" & Domain & "' WHERE objectClass='*' "
then I used this
AuthenticateUser = "Found User: " & trim(oRS("description"))
it give me only "Found User:"
in AD there is description and there is text like "Staff" or "Student"
thanks again
well,
if I use
AuthenticateUser = "Thank you you are logged in now!"
then it showed me that correctly
it dose the job for checking it the user in AD or not
but I do not understand why it dose not return any information !!!
if it return nothing then then it will not show me that my username and password on the AD server ... right ?
I also notice that the script doesn't appear to be looking for a given username. The from clause references the domain, but nothing else is referenced in the SQL syntax, so it will find a "match" with any username provided there is a record present it seems.
Can you post a dummy display from a SQL script against the database, so I can see what a couple of rows of the actual data look like?
I don't actully know what do tyou mean by "post a dummy display from a SQL script against the database"
by the way this script is working perfectly in listing all the AD objects
<%
Domain = "MYDOMAIN"
set conn = CreateObject("ADODB.Connec
conn.Provider = "ADsDSOObject"
conn.Open "ADs Provider"
queryString = "SELECT cn, givenName, description, mail FROM 'LDAP://" & Domain & "' WHERE objectClass='*' "
Set rs = conn.Execute( queryString, numRecords, 1 )
Do While Not rs.EOF
Response.Write rs("cn") & "<br>"
rs.MoveNext
Loop
%>
and when I change "Response.Write rs("cn") & "<br>"" to "Response.Write rs("description") & "<br>"" I get an error but all the other options (mail and givenName) work with no problem !!!
topazg
when I use "description" I get
Microsoft VBScript runtime error '800a000d'
Type mismatch
/authenticate/authorise_ad
kevp75 - thank you for your replay
how I should I put/use it in the code above ... it didn't work for me
I'm using the secound script just to check the connection and list all users
but what I really need is the first one :-( to check users username and passwords through AD then get some information like description and givenName
Thank you
i don't know much about AD, however I can assume that querying the AD is similar to querying a table in SQL.
By simply using the number instead of the name of the field you should be able to display any field in the table. I merely suggested using the * wildcard as it selects all fields in the table.
I may be off on the loop, but you could experiment a bit and use your same exact code, (although for testing purposes I would change the query to select all the fields *)
<%
Domain = "MYDOMAIN"
set conn = CreateObject("ADODB.Connec
conn.Provider = "ADsDSOObject"
conn.Open "ADs Provider"
queryString = "SELECT * FROM 'LDAP://" & Domain & "' WHERE objectClass='*' "
Set rs = conn.Execute( queryString )
Do While Not rs.EOF
Response.Write rs(0) & "<br>" 'increase the 0 by 1 until you find what you are looking for....
rs.MoveNext
Loop
%>
If RS("cn") doesn't give an error, RS("description") certainly shouldn't - a type mismatch should only occur if you are trying to run a CInt or function on a string variable or similar untransformable task.
Try using:
testVariable = trim(rs("description"))
Response.write(testVariabl
instead of just outputting it.
hello,
sorry for all this I had a personal issue !!!
OK, I tried it and it did not work !!! it gives me nothing at all (also it dose not give me any error).
i used this
strQuery = "SELECT cn, description FROM 'LDAP://" & Domain & "' WHERE objectClass='*' "
the output code looks like this
testVariable = trim(oRS("description"))
Response.write(testVariabl
and it's still giving me nothing !!!!
maybe we are looking in the wrong place :-s
sorry again for taking all this time to respond
thank you for your replay.
no it did not work,
and I think I should stop wasting time (for all)
if you others thing its worth keep trying then I can keep try, but my time is limited and I'm working on other project now.
personally I like to see this work, but we notice that it took long time for me to test it (because I work on other thing).
and the code is here if any one see that it worth trying then it's all yours.
about the grade can we change it to what ever kevp75 would like, I really thank him and topazg for the time the spend trying helping me.
I'm sorry for the miss understanding
Thanks allot for your help Vee_Mod
I just want to be fair with kevp75 and topazg, they were nice and very helpful to me, and they deserve the best points/grades that I can offer even if the thing did not work,
IF I'll find the solution to this question I'll post it here if I can't post then I'll still can email them or send it to them, because they were interested to solve this question too.
thank you all again for your help,
and sorry for any miss-understanding
Business Accounts
Answer for Membership
by: topazgPosted on 2007-01-02 at 06:04:54ID: 18227541
As it is that is only possible if you are happy with them all in one field.
To do this, change
AuthenticateUser = false
to
AuthenticateUser = "User Not Found"
and the following:
-------------------
if oRS.bof or oRS.eof then
AuthenticateUser = false
else
AuthenticateUser = true
end if
-----------------
to
----------------
if oRS.bof or oRS.eof then
AuthenticateUser = "User Not Found"
else
AuthenticateUser = "Found User: " & trim(RS("{fieldname}"))
end if
----------------
That _should_ work I think, with {fieldname} being replaced by the column (presumably "cn") in the table you are extracting the data from.