MikeBronner
Programmer
Could someone post an example of ASP code used to query LDAP without any proprietary components?
Thanks! Take Care,
Mike
Thanks! Take Care,
Mike
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Example of ASP LDAP query string? 14
- Thread starter MikeBronner
- Start date
- Status
-
1
- #22
Many thanks Zac, works perfectly. I have hacked it up to do the following.
1. Removed the web based email function, using it internally so users will use their email clients for communication.
2. Changed it to default to a listing of all employees on load, instead of a blank page telling them to choose a letter and/or location
3. The main page now shows Full Name, Title, Department, Location, Phone, and Fax. Right frame elimanted so all info above fits. No need for a details page per user now. Instead, the users name is a mailto: link now.
4. Added headings of Full Name, Title, Department, Location, Phone, and Fax above output listing.
Basically, I have it down to two files, phonebook.asp and list.asp
My changes, like Zac's contribution, are free for the asking.
1. Removed the web based email function, using it internally so users will use their email clients for communication.
2. Changed it to default to a listing of all employees on load, instead of a blank page telling them to choose a letter and/or location
3. The main page now shows Full Name, Title, Department, Location, Phone, and Fax. Right frame elimanted so all info above fits. No need for a details page per user now. Instead, the users name is a mailto: link now.
4. Added headings of Full Name, Title, Department, Location, Phone, and Fax above output listing.
Basically, I have it down to two files, phonebook.asp and list.asp
My changes, like Zac's contribution, are free for the asking.
hi Zac, I tested the phonebook.asp at my win2K IIS. The asp listed A to Z, but when I click on any of the letter, nothing return. In fact an "Error on Page" detected at the bottom task bar with error details 'document.departmentchoice.departmentname[...].checked' is null or not an object.
Please advice. Thanks.
Please advice. Thanks.
ToddFuhrman
IS-IT--Management
JBIGHAM,
I would love to have that code you hacked up. Very nice work zcolton.
tfuhrman@frsd.k12.nj.us
I would love to have that code you hacked up. Very nice work zcolton.
tfuhrman@frsd.k12.nj.us
ToddFuhrman
IS-IT--Management
I was wondering if your modified version still displays the departments up top?
Ideally for me would be to display the departments up top, but upon choosing them have them auto display all members of that department by display name or last name/ first name, which in my case is their display name.
I'm thinking my desired phonebook lies somewhere between the original and your modified version.
Hopefully you check in soon and can send those files over. Thank you in advance.
Ideally for me would be to display the departments up top, but upon choosing them have them auto display all members of that department by display name or last name/ first name, which in my case is their display name.
I'm thinking my desired phonebook lies somewhere between the original and your modified version.
Hopefully you check in soon and can send those files over. Thank you in advance.
ToddFuhrman
IS-IT--Management
Thanks Zac. I downloaded and put it up at the web. I was able to change a lot of things I wanted to but I did not touch the email component of it.
Can you tell me how to change the code to a mailto: type response. I don't want anonymous emails, we want to click on the email address and have the clients email application open a new mail.
Check out what I have, looks great!
Can you tell me how to change the code to a mailto: type response. I don't want anonymous emails, we want to click on the email address and have the clients email application open a new mail.
Check out what I have, looks great!
YGM
I have some different features in my endeavor.
The ability to navigate up the org chart, assuming you have populated your manager field in ADUC. Found on the users details page (click on a user)
Email is setup to use the users email client. Just plain safer this way (spammers, jokers, audit tracking, etc)
Default behavior is to show all users on launch, rather than requiring a letter to be chosen.
An option to revert back to show all users at any time, see * symbol.
Phone # field pulls from the 1st element in the otherTelephone array.
Layout is somewhat different.
Not yet implemented the code to make it more transportable (still have to code server names)
I have some different features in my endeavor.
The ability to navigate up the org chart, assuming you have populated your manager field in ADUC. Found on the users details page (click on a user)
Email is setup to use the users email client. Just plain safer this way (spammers, jokers, audit tracking, etc)
Default behavior is to show all users on launch, rather than requiring a letter to be chosen.
An option to revert back to show all users at any time, see * symbol.
Phone # field pulls from the 1st element in the otherTelephone array.
Layout is somewhat different.
Not yet implemented the code to make it more transportable (still have to code server names)
jbigham
take a look at my newest code. It doesn't require server or domain names to be hard coded. This exmple just spits out a list of departments. I was using this to help someone else.
Example:
take a look at my newest code. It doesn't require server or domain names to be hard coded. This exmple just spits out a list of departments. I was using this to help someone else.
Example:
Code:
<%@ Language=VBScript %>
<%
Option Explicit
Dim con,rs,Com,objADsPath,objDomain
%>
<html>
<head>
</head>
<body bgcolor="#CCCCCC">
<%
Set objDomain = GetObject ("GC://RootDSE")
objADsPath = objDomain.Get("defaultNamingContext")
Set objDomain = Nothing
Set con = Server.CreateObject("ADODB.Connection")
con.provider ="ADsDSOObject"
con.open "Active Directory Provider"
Set Com = CreateObject("ADODB.Command")
Set Com.ActiveConnection = con
Com.CommandText ="select department from 'GC://"+objADsPath+"' WHERE department ='*'"
Set rs = Com.Execute
Do While Not rs.EOF Or rs.BOF
Response.Write rs("department") & "<BR>"
rs.MoveNext
Loop
rs.Close
con.Close
Set rs = Nothing
Set con = Nothing
%>
</body>
</html>I was thinking about doing something like that... just no time. This is the "fun stuff" that I have to hold off on until other projects are completed.
A variation of that will work for the printable list I wanted to do though, as grouping by department is preferred. I'd just do:
Response.Write rs("department"
& "<BR>"
<insert loop to list associated departmental employees)
rs.MoveNext
I'll keep you udated as I make changes... I have webspace, guess I should just start posting my sources. Maybe after I weed out our hard-coded company info in there.
A variation of that will work for the printable list I wanted to do though, as grouping by department is preferred. I'd just do:
Response.Write rs("department"
& "<BR>"<insert loop to list associated departmental employees)
rs.MoveNext
I'll keep you udated as I make changes... I have webspace, guess I should just start posting my sources. Maybe after I weed out our hard-coded company info in there.
Quick note, I think you need to loop through that recordset again so that you can extract distinct entries for departments... so you don't have repeating groups.
I see you did this for someone else... so it may not apply for you setup.
I see you did this for someone else... so it may not apply for you setup.
The code I just posted was for someone who was having problems just getting the department info. This is my actual asp page that will retrieve a complete list of departments and use them as choices for the query.
Code:
<%@ Language=VBScript %>
<%
Option Explicit
Dim t,x,con,rs,Com,objADsPath,objDomain,iLoop,bolFound,strdepartments
strdepartments=""
%>
<html>
<head>
<script type="text/javascript">
function listlink(a,q)
{
for (var c = 0; c <= q; c++)
{if (document.departmentchoice.departmentname[c].checked) b = document.departmentchoice.departmentname[c].value;}
open('list.asp?letter='+a+'&department='+b,'ListFrame');
open('info.asp','InfoFrame');
open('blank.htm','EmailFrame');
}
function reflist()
{
open('list.asp','ListFrame');
open('blank.htm','InfoFrame');
open('blank.htm','EmailFrame');
}
</script>
<title>Phone List</title>
<style>
.over { background-color: #FFFF66; cursor: hand}
.out { background-color: #CCCCCC}
</style>
</head>
<body bgcolor="#CCCCCC" topmargin="0" leftmargin="0">
<%
Set objDomain = GetObject ("GC://rootDSE")
objADsPath = objDomain.Get("defaultNamingContext")
Set objDomain = Nothing
Set con = Server.CreateObject("ADODB.Connection")
con.provider ="ADsDSOObject"
con.open "Active Directory Provider"
Set Com = CreateObject("ADODB.Command")
Set Com.ActiveConnection = con
Com.CommandText ="select department from 'GC://"+objADsPath+"' WHERE objectCategory='person' AND department='*' ORDER BY department"
Set rs = Com.Execute
Do While Not rs.EOF
dim myarray
myarray=split(strdepartments,",")
bolFound = False
For iLoop = LBound(myarray) to UBound(myarray)
If CStr(myarray(iLoop)) = CStr(rs("department")) Then
bolFound = True
End If
Next
IF bolFound = False Then
If strdepartments="" then
strdepartments=rs("department")
Else
strdepartments=strdepartments&","&rs("department")
End If
End If
rs.MoveNext
Loop
rs.Close
dim deparray
deparray=split(strdepartments,",")
t=UBound(deparray)+1
%>
<form name="departmentchoice">
<table border="1" cellpadding="0" cellspacing="0" width="550">
<tr><td colspan="26" valign="middle" align="center" height="20"><p><font face="Tahoma" size="1"><b>
<input type="radio" onclick="reflist();" name="departmentname" value="*" checked>All
<%For iLoop = LBound(deparray) to UBound(deparray)%>
<input type="radio" onclick="reflist();" name="departmentname" value="<%response.write deparray(iLoop)%>"><%response.write deparray(iLoop)%>
<%Next%>
</b></font></p></td>
</tr>
<tr>
<%For x = 65 to 90%>
<td onMouseOver="this.className='over'" onMouseOut="this.className='out'" class="out" width="20" height="20" valign="middle" align="center" onclick="listlink('<%response.write chr(x)%>','<%response.write t%>');"><a><b><font color="#000080" face="Verdana" size="2"><%response.write chr(x)%></font></b></a></td>
<%Next%>
</tr>
<tr>
<td valign="top" colspan="10"><IFRAME NAME="ListFrame" FRAMEBORDER="0" SCROLLING="AUTO" SRC="list.asp" width="223" height="458"></IFRAME></td>
<td valign="top" colspan="16"><IFRAME NAME="InfoFrame" FRAMEBORDER="0" SCROLLING="AUTO" SRC="blank.htm" width="320" height="125"></IFRAME>
<IFRAME NAME="EmailFrame" FRAMEBORDER="0" SCROLLING="AUTO" SRC="blank.htm" width="320" height="330"></IFRAME></td>
</tr>
</table>
</form>
</body>
</html>Greetings all,
I'm attempting to implement something close to this on an ASP through FrontPage (with MS back end), and am not sure how to modify it for my situation.
What I'm trying to do is get an ASP to detect the currently logged on user and query AD to display their email address on the screen. I've already got my ASP running a JavaScript that will properly detect and display their username, but this bit with displaying the email address has been more daunting. I'm not a programmer, so I'm trying to piece things into place with examples from other sites. No luck so far.
My concerns are:
1. My method has been to use the (Request.ServerVariables("LOGON_USER") variable to query LDAP and find the email address, but no luck so far.
2. What is the proper URL syntax for an LDAP server? I have a domain controller name to work off of, but have so far been unable to properly connect to it. I'm not sure how to fit this in with the DN.. Still learning how these all interact.
3. My ASP runs a JavaScript to find the username of the user accessing the page. Is it also possible to run a VBScript on the same page?
*phew!* That's enough to get started. Any help is *greatly* appreciated.
Thanks!
Chris
I'm attempting to implement something close to this on an ASP through FrontPage (with MS back end), and am not sure how to modify it for my situation.
What I'm trying to do is get an ASP to detect the currently logged on user and query AD to display their email address on the screen. I've already got my ASP running a JavaScript that will properly detect and display their username, but this bit with displaying the email address has been more daunting. I'm not a programmer, so I'm trying to piece things into place with examples from other sites. No luck so far.
My concerns are:
1. My method has been to use the (Request.ServerVariables("LOGON_USER"
) variable to query LDAP and find the email address, but no luck so far.2. What is the proper URL syntax for an LDAP server? I have a domain controller name to work off of, but have so far been unable to properly connect to it. I'm not sure how to fit this in with the DN.. Still learning how these all interact.
3. My ASP runs a JavaScript to find the username of the user accessing the page. Is it also possible to run a VBScript on the same page?
*phew!* That's enough to get started. Any help is *greatly* appreciated.
Thanks!
Chris
This is the best example that I've been able to work with so far. The example was taken from
I believe this example will do what I'm looking for, though the only value I really need returned is the email address (this should return many more values, but if it can work, it can be cut back to just display the email address).
I think the only change needed here is to add the correct LDAP info.. The values in this code are from the example on the link above. Perhaps also change the 'script language' value to VBScript? The final working version of this code will be pasted onto an ASP form page with JavaScript though, so not sure yet how those will work together.
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>testsearch</title>
<script language="JavaScript"></script>
</head>
<body>
<%
on error resume next
strLogonID = Request.Servervariables("LOGON_USER"
If InStr(strLogonID, "\" > 0 Then
strLogonID = LCase(Right(strLogonID, InStr(strLogonID, "\" - 2))
End If
id = LCase(strLogonID)
Set User = GetObject("WinNT://scotland/" & id & ""
Fullname = User.Fullname
'###### Pathway to use to Active Directory ######
testpath = "LDAP://CN=" & FullName & ",OU=\#Scots Users,DC=scotland,DC=co,DC=uk"
set usr = GetObject(testpath)
'###### Flush any cache held ######
usr.GetInfo
'###### Active Directory variables ######
strName = usr.get("givenName" '###### Users Christian Name ######
strSurname = usr.get("sn" '###### Users Surname ######
strInitials = usr.get("initials" '###### Users Initials ######
displayName = usr.get("displayName" '###### Full Display Name ######
strAddress = usr.get("StreetAddress" '###### Address Information ######
strRoom = usr.get("PhysicalDeliveryOfficeName" '###### Room/Area Information ######
secretary = usr.get("secretary" '###### Secrectary/Assistant ######
strTitle = usr.get("title" '###### Job Title ######
strTelephone = usr.get("telephoneNumber" '###### Official Intneral Telephone Number ######
strFax = usr.get("facsimileTelephoneNumber" '###### Fax Number ######
mobile = usr.get("mobile" '###### Mobile Number ######
telephoneAssistant = usr.get("telephoneAssistant" '###### Telephone Assistant ######
strDepartment = usr.get("department" '###### Department ######
strCC = usr.get("ExtensionAttribute1" '###### COST Centre ######
strBuilding = usr.get("ExtensionAttribute2" '###### Building ######
strDivision = usr.get("ExtensionAttribute3" '###### Division ######
strBranch = usr.get("ExtensionAttribute4" '###### Branch ######
ExtensionAttribute5 = usr.get("ExtensionAttribute5" '###### PC Item Number ######
ExtensionAttribute6 = usr.get("ExtensionAttribute6" '###### External Telephone Number ######
strGroup = usr.get("ExtensionAttribute7" '###### Group ######
othertelephone = usr.get("othertelephone" '###### GTN Telephone Number ######
samaccountname = usr.get("samaccountname" '###### User ID ######
adspath = usr.get("adspath" '###### Pathway to AD? ######
strFullName = usr.get("cn" '###### Full Display Name ######
strMail = usr.get("mail" '###### E-Mail Address ######
strManager = usr.get("manager" '###### Reporting Officer ######
'###### End Active Directory variables ######
set usr = nothing
Response.Write "Firstname = " & strName & "<br />"
Response.Write "Surname = " & strSurname & "<br />"
Response.Write "initials = " & strInitials & "<br />"
Response.Write "displayName = " & displayName & "<br />"
Response.Write "StreetAddress = " & strAddress & "<br />"
Response.Write "PhysicalDeliveryOfficeName = " & strRoom & "<br />"
Response.Write "secretary = " & secretary & "<br />"
Response.Write "title = " & strTitle & "<br />"
Response.Write "telephoneNumber = " & strTelephone & "<br />"
Response.Write "facsimileTelephoneNumber = " & strFax & "<br />"
Response.Write "mobile = " & mobile & "<br />"
Response.Write "telephoneAssistant = " & telephoneAssistant & "<br />"
Response.Write "department = " & strDepartment & "<br />"
Response.Write "ExtensionAttribute1 = " & strCC & "<br />"
Response.Write "ExtensionAttribute2 = " & strBuilding & "<br />"
Response.Write "ExtensionAttribute3 = " & strDivision & "<br />"
Response.Write "ExtensionAttribute4 = " & strBranch & "<br />"
Response.Write "ExtensionAttribute5 = " & ExtensionAttribute5 & "<br />"
Response.Write "ExtensionAttribute6 = " & ExtensionAttribute6 & "<br />"
Response.Write "ExtensionAttribute7 = " & strGroup & "<br />"
Response.Write "othertelephone = " & othertelephone & "<br />"
Response.Write "samaccountname = " & samaccountname & "<br />"
Response.Write "adspath = " & adspath & "<br />"
Response.Write "FullName = " & strFullName & "<br />"
Response.Write "e-mail = " & strMail & "<br />"
Response.Write "strManager = " & strManager & "<br />"
If Err.Number <> 0 Then
GetInfo = False
Response.Write(Err.Number & ": " & Err.Description) 'always get "The Active Directory datatype cannot be converted to/from a native DS datatype"
Err.Clear
Else
GetInfo = True
End If
%>
<head> <body>
</body>
</html>
Once again, any direction is greatly appreciated.
Thanks!
Chris
I believe this example will do what I'm looking for, though the only value I really need returned is the email address (this should return many more values, but if it can work, it can be cut back to just display the email address).
I think the only change needed here is to add the correct LDAP info.. The values in this code are from the example on the link above. Perhaps also change the 'script language' value to VBScript? The final working version of this code will be pasted onto an ASP form page with JavaScript though, so not sure yet how those will work together.
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>testsearch</title>
<script language="JavaScript"></script>
</head>
<body>
<%
on error resume next
strLogonID = Request.Servervariables("LOGON_USER"
If InStr(strLogonID, "\"
> 0 ThenstrLogonID = LCase(Right(strLogonID, InStr(strLogonID, "\"
- 2))End If
id = LCase(strLogonID)
Set User = GetObject("WinNT://scotland/" & id & ""
Fullname = User.Fullname
'###### Pathway to use to Active Directory ######
testpath = "LDAP://CN=" & FullName & ",OU=\#Scots Users,DC=scotland,DC=co,DC=uk"
set usr = GetObject(testpath)
'###### Flush any cache held ######
usr.GetInfo
'###### Active Directory variables ######
strName = usr.get("givenName"
'###### Users Christian Name ######strSurname = usr.get("sn"
'###### Users Surname ######strInitials = usr.get("initials"
'###### Users Initials ######displayName = usr.get("displayName"
'###### Full Display Name ######strAddress = usr.get("StreetAddress"
'###### Address Information ######strRoom = usr.get("PhysicalDeliveryOfficeName"
'###### Room/Area Information ######secretary = usr.get("secretary"
'###### Secrectary/Assistant ######strTitle = usr.get("title"
'###### Job Title ######strTelephone = usr.get("telephoneNumber"
'###### Official Intneral Telephone Number ######strFax = usr.get("facsimileTelephoneNumber"
'###### Fax Number ######mobile = usr.get("mobile"
'###### Mobile Number ######telephoneAssistant = usr.get("telephoneAssistant"
'###### Telephone Assistant ######strDepartment = usr.get("department"
'###### Department ######strCC = usr.get("ExtensionAttribute1"
'###### COST Centre ######strBuilding = usr.get("ExtensionAttribute2"
'###### Building ######strDivision = usr.get("ExtensionAttribute3"
'###### Division ######strBranch = usr.get("ExtensionAttribute4"
'###### Branch ######ExtensionAttribute5 = usr.get("ExtensionAttribute5"
'###### PC Item Number ######ExtensionAttribute6 = usr.get("ExtensionAttribute6"
'###### External Telephone Number ######strGroup = usr.get("ExtensionAttribute7"
'###### Group ######othertelephone = usr.get("othertelephone"
'###### GTN Telephone Number ######samaccountname = usr.get("samaccountname"
'###### User ID ######adspath = usr.get("adspath"
'###### Pathway to AD? ######strFullName = usr.get("cn"
'###### Full Display Name ######strMail = usr.get("mail"
'###### E-Mail Address ######strManager = usr.get("manager"
'###### Reporting Officer ######'###### End Active Directory variables ######
set usr = nothing
Response.Write "Firstname = " & strName & "<br />"
Response.Write "Surname = " & strSurname & "<br />"
Response.Write "initials = " & strInitials & "<br />"
Response.Write "displayName = " & displayName & "<br />"
Response.Write "StreetAddress = " & strAddress & "<br />"
Response.Write "PhysicalDeliveryOfficeName = " & strRoom & "<br />"
Response.Write "secretary = " & secretary & "<br />"
Response.Write "title = " & strTitle & "<br />"
Response.Write "telephoneNumber = " & strTelephone & "<br />"
Response.Write "facsimileTelephoneNumber = " & strFax & "<br />"
Response.Write "mobile = " & mobile & "<br />"
Response.Write "telephoneAssistant = " & telephoneAssistant & "<br />"
Response.Write "department = " & strDepartment & "<br />"
Response.Write "ExtensionAttribute1 = " & strCC & "<br />"
Response.Write "ExtensionAttribute2 = " & strBuilding & "<br />"
Response.Write "ExtensionAttribute3 = " & strDivision & "<br />"
Response.Write "ExtensionAttribute4 = " & strBranch & "<br />"
Response.Write "ExtensionAttribute5 = " & ExtensionAttribute5 & "<br />"
Response.Write "ExtensionAttribute6 = " & ExtensionAttribute6 & "<br />"
Response.Write "ExtensionAttribute7 = " & strGroup & "<br />"
Response.Write "othertelephone = " & othertelephone & "<br />"
Response.Write "samaccountname = " & samaccountname & "<br />"
Response.Write "adspath = " & adspath & "<br />"
Response.Write "FullName = " & strFullName & "<br />"
Response.Write "e-mail = " & strMail & "<br />"
Response.Write "strManager = " & strManager & "<br />"
If Err.Number <> 0 Then
GetInfo = False
Response.Write(Err.Number & ": " & Err.Description) 'always get "The Active Directory datatype cannot be converted to/from a native DS datatype"
Err.Clear
Else
GetInfo = True
End If
%>
<head> <body>
</body>
</html>
Once again, any direction is greatly appreciated.
Thanks!
Chris
- Status
Similar threads
- Locked
- Question
- Locked
- Question