<% 'Parse the URL path into adsPath ADsDomain = Session("ADsDomain") 'Session may time out If ADsDomain = "" then ADsDomain = Application("ADsDomain") End if urlPath = Request.QueryString("anr") userID = Application("UserID") password = Application("Password") domainPath = "LDAP://" & ADsDomain counter = 0 idx = 1 adsPath = "" While idx <> 0 idx = InStr(1, urlPath, "%20") If (idx = 0) Then adsPath = adsPath & Mid(urlPath, 1) Else adsPath = adsPath & Mid(urlPath, 1, idx - 1) adsPath = adsPath & " " End If urlPath = Mid(urlPath, idx + 3) Wend Set dso = GetObject("LDAP:") if ( o.Class = "group" ) then Set dso = Nothing Set o = Nothing Response.Redirect "group.asp?anr=" & Request.QueryString("anr") end if %>

       

<% On Error Resume Next mgrPath = o.Get("manager") Set mgr = dso.OpenDSObject(domainPath & "/" & mgrPath , userID, password, 1 ) directs = o.Get("directReports") members = o.Get("memberOf") counter = 0 %>

Name:	<% Response.Write o.Get("cn") %>
E-Mail:	"><% Response.Write o.Get("mail")%>
Phone	<%Response.Write o.Get("telephoneNumber")%>
Title	<%Response.Write o.Get("title")%>
Office	<%Response.Write o.Get("physicalDeliveryOfficeName")%>
Manager	<%Response.Write mgr.Get("cn")%>
Deparment	<%Response.Write o.Get("department")%>
Division	<%Response.Write o.Get("extensionAttribute3")%>
Company	<%Response.Write o.Get("company")%>
Employee ID	<% Response.Write o.Get("extensionAttribute4")%>

 

<% for each direct in directs 'Alternate background color for enhancing the appearance counter = counter + 1 md = counter mod 2 if ( md = 0 ) then bkColor = "#C9C9C9" else bkColor = "#E8E8E8" end if if ( direct = "" ) then counter = 0 end if %> <% idxStart = InStr(1, direct, "=") + 1 idxEnd = InStr(1, direct, ",") rdnDirect = Mid(direct, idxStart, idxEnd - idxStart) refDirect = domainPath & "/" & direct %> <% Next %>

Direct Reports

<%Response.Write rdnDirect %>

<% if ( counter > 0 ) then Response.Write counter & " direct report(s) found" else Response.Write "No direct report" end if %> <% counter = 0 %>

 

<% for each member in members 'Alternate background color for enhancing the appearance counter = counter + 1 md = counter mod 2 if ( md = 0 ) then bkColor = "#C9C9C9" else bkColor = "#E8E8E8" end if if ( member = "" ) then counter = 0 end if %> <% idxStart = InStr(1, member, "=") + 1 idxEnd = InStr(1, member, ",") rdnMember = Mid(member, idxStart, idxEnd - idxStart) refMember = domainPath & "/" & member %> <% Next %>

Member Of

<%Response.Write rdnMember %>

<% if ( counter > 0 ) then Response.Write " Member of " & counter &" group(s)" else Response.Write "Do not member of any group OR you may not have permission to view this property" end if %> <% Set dso = Nothing Set o = Nothing Set mgr = Nothing %>

<% Response.Write "Query was executed in: " & elapse & " second(s)" Response.Write "
" elapse = Timer - t Response.Write "Total Time (Execute, Enumeration and Rendering): " & elapse & " second(s)" %>