<%
' * Здесь нужно указать имя сервера Global Catalog 
   strServerName = "dcserver/DC=mydomain,DC=com"
'  strUser = Request.ServerVariables("LOGON_USER") 'retrieve the user 
'  response.write request.servervariables("auth_user") & " " & request.servervariables("auth_type")
%>
<%' =request.servervariables("auth_user") & " " & request.servervariables("auth_type") %>
<P align="center">
<font face="Verdana">
<%

   set oConn = Server.CreateObject("ADODB.Connection")
   set oCommand = Server.CreateObject("ADODB.Command")
   set oRS = Server.CreateObject("ADODB.Recordset")

   oConn.Provider = "ADsDSOObject"

   oConn.Open "Ads Provider"

   set oCommand.ActiveConnection = oConn  'set the active connection

 ' * Формируем LDAP запрос
   strQuery= "<LDAP://" & strServername &">;(&(objectClass=person)(telephoneNumber=*)(!(IsDisabled=true)));cn,extensionAttribute1,title,telephoneNumber,physicalDeliveryOfficeName,department,sAMAccountName,extensionAttribute2;subtree"
   oCommand.CommandText = strQuery
   oCommand.Properties("Sort on") = "extensionAttribute6"
   oCommand.Properties("Page Size") = 20000   'a paged query is used to avoid Exchange LDAP server limits
   set oRS = oCommand.Execute   'Execute the query

' Строим таблицу результатов
   %>