<%@ Language=VBScript %>
<% response.Buffer = True %>
Company directory
" + vbCrLf
Do While Not objRS.EOF Or objRS.BOF
Response.Write "
"
' Clean up
objRS.Close
objCon.Close
Set objRS = Nothing
Set objCon = Nothing
Set objCom = Nothing
%>
Company Directory
<% ' Define the AD OU that contains our users usersOU = "LDAP://OU=Users,DC=Domain,DC=local" ' Make AD connection and run query Set objCon = Server.CreateObject("ADODB.Connection") objCon.provider ="ADsDSOObject" objCon.Properties("User ID") = "DOMAIN\user" objCon.Properties("Password") = "Pa$5w0rD!" objCon.Properties("Encrypt Password") = TRUE objCon.open "Active Directory Provider" Set objCom = CreateObject("ADODB.Command") Set objCom.ActiveConnection = objCon objCom.CommandText ="select givenName,sn,title,mail,telephonenumber,mobile,sAMAccountName FROM '"+ usersOU +"' where sAMAccountname='*' ORDER by sAMAccountname" Set objRS = objCom.Execute ' Loop over returned recordset and output HTML Response.Write "" + objRS("givenName") + " | " Response.Write "" + objRS("sn") + " | " Response.Write "" + objRS("title") + " | " Response.Write "" + objRS("mail") + " | " Response.Write "" + objRS("telephonenumber") + " | " Response.Write "" + objRS("mobile") + " | " Response.Write "" + objRS("sAMAccountName") + " | " Response.Write "