Staff Directory

[jwood]

I would like to create a staff directory that can be viewed on our Intranet that looks something like the attached screenshot.

HOWEVER, I want it to connect to active directory and get its data directly from there.

Is this possible to achieve via using ASP?


(See attached).

[SYNACK]

Yes this is reasonably easily done, you are after a technology called ADSI. Here are some links to the basics of grabbing the information:

Learn More about ADSI

Using ADSI in ASP

Just make sure that the account that your ISS server is using has permission to access AD information ie Domain User.

[SYNACK]

This could be what you are after the ADSI Scriptomatic a shiny little MS tool that automagicly generates ADSI queries. You can then put these into an asp page or use them as vbs scripts.

[SYNACK]

Don't give up that easily, here is a script that I just created that does what you are after. At the moment it will output the names of all members of the domain admins group assuming they have stuff set for firstname and lastname in AD.

strContainer = "cn=Users"
strName = "Domain Admins"

On Error Resume Next

'***********************************************
'*          Connect to an object                 *
'***********************************************
Set objRootDSE = GetObject("LDAP://rootDSE")
If strContainer = "" Then
  Set objItem = GetObject("LDAP://" & _
    objRootDSE.Get("defaultNamingContext"))
Else
  Set objItem = GetObject("LDAP://cn=" & strName & "," & strContainer & "," & _
    objRootDSE.Get("defaultNamingContext"))
End If
'***********************************************
'*         End connect to an object           *
'***********************************************

strmember = objItem.GetEx("member")
For Each Item in strmember
 If Item <> "" Then
 Set objItem1 = GetObject("LDAP://" & Item)
 strFirstName = objItem1.Get("givenName")
 strinitials = objItem1.Get("initials")
 strSirname = objItem1.Get("sn")
' **** Usage in VBS ******
 WScript.Echo strFirstName & " " & strinitials & " " & strSirname 
' **** Usage in ASP ******
' response.write strFirstName & " " & strinitials & " " & strSirname & "<br>"
End If

Next

Just change the strName variable to the group that you are after and the strContainer variable to the ou that the group is in ie ou=Groups or just leave it as is if the group is in or under the users folder. You can just chuck this in to a text file with a .vbs extention and run it on and domain connected machine to test it out.