<% 'Parse the URL path into adsPath urlPath = Request.QueryString("anr") 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 o = GetObject(adsPath); mgrPath = o.Get("manager") Set mgr = GetObject("GC://" & mgrPath ) On Error Resume Next %>

 

Name:	<% Response.Write o.Get("cn") %>
Phone	<%Response.Write o.Get("telephoneNumber")%>
Office	<%Response.Write o.Get("physicalDeliveryOfficeName")%>
Manager	<%Response.Write mgr.Get("cn")%>
Deparment	<%Response.Write o.Get("department")%>
Company	<%Response.Write o.Get("company")%>
NT 4.0 Logon	<%Response.Write o.Get("samAccountName")%>
UPN	<%Response.Write o.Get("userPrincipalName")%>
Direct Report
MemberOf