ASP & LDAP

[Enigma Webmaster]

We've had an ASP running for about 9 months which returns a full listing of
network users (taken directly from AD), and it has now stopped working with
the following;

Provider Error '80004005'.

If I remove a field called 'userAccountCon trol' from the field list it works
to a certain extent but still fails further down the code with not finding
content ofr the field called 'Name'. I think its very probably a
permissions error, can someone point out the obvious to me please ???

Regards & thanks in anticipation..

KP

' ------------------------ Create Connection to Active
Directory -----------------------------------------
Set objConn = Server.CreateOb ject("ADODB.Con nection")
Set objRS = Server.CreateOb ject("ADODB.Rec ordset")
objConn.Provide r = "ADsDSOObje ct"
strConn = "ADs Provider"
objConn.Open strConn

' ------------------------ Create Active Directory SQL Query
String --------------------------------------
if request.queryst ring("order")=" " then
strQuery = "SELECT name, mail, telephonenumber , homephone, mobile,
postalcode, st, title, info, userAccountCont rol"
strQuery = strquery & "distinguishedN ame FROM 'LDAP://domain.com' WHERE
objectcategory= 'user' and "
strQuery = strquery & " objectClass = 'user' AND msExchHomeServe rName =
'*cn=ATVMAILSVR ' AND name <> 'SystemMailbox* ' "
strQuery = strquery & " AND OU <> 'User' AND NOT
msExchhidefromA ddresslists=TRU E order by name"
else
strQuery = "SELECT name, mail, telephonenumber , homephone, mobile,
postalcode, st, title, info,"
strQuery = strquery & "distinguishedN ame FROM 'LDAP://domain.comWHERE
objectcategory= 'person' and "
strQuery = strquery & " objectClass = 'user' AND msExchHomeServe rName =
'*cn=ATVMAILSVR ' AND name <> 'SystemMailbox* ' "
strQuery = strquery & " AND OU <> 'User' AND NOT
msExchhidefromA ddresslists=TRU E order by " & request.queryst ring("order")
end if

' ------------------------ Open Recordset & populate various
counters ------------------------------------
objRS.Open strQuery, objConn, 1, 1
intRowCount = objrs.recordcou nt
objrs.MoveFirst
' ------------------------ loop through recordset and display
details ------------------------------------

[Curt_C [MVP]]

try, just as a test, using a Domain Admin as the IIS user.

--
Curt Christianson
Site & Scripts: http://www.Darkfalz.com
Blog: http://blog.Darkfalz.com
"Enigma Webmaster" <in**@enigma-one.com> wrote in message
news:nD******** *******@newsfe1-win.ntli.net...

We've had an ASP running for about 9 months which returns a full listing
of network users (taken directly from AD), and it has now stopped working
with the following;

Provider Error '80004005'.

If I remove a field called 'userAccountCon trol' from the field list it
works to a certain extent but still fails further down the code with not
finding content ofr the field called 'Name'. I think its very probably a
permissions error, can someone point out the obvious to me please ???

Regards & thanks in anticipation..

KP

' ------------------------ Create Connection to Active
Directory -----------------------------------------
Set objConn = Server.CreateOb ject("ADODB.Con nection")
Set objRS = Server.CreateOb ject("ADODB.Rec ordset")
objConn.Provide r = "ADsDSOObje ct"
strConn = "ADs Provider"
objConn.Open strConn

' ------------------------ Create Active Directory SQL Query
String --------------------------------------
if request.queryst ring("order")=" " then
strQuery = "SELECT name, mail, telephonenumber , homephone, mobile,
postalcode, st, title, info, userAccountCont rol"
strQuery = strquery & "distinguishedN ame FROM 'LDAP://domain.com' WHERE
objectcategory= 'user' and "
strQuery = strquery & " objectClass = 'user' AND msExchHomeServe rName =
'*cn=ATVMAILSVR ' AND name <> 'SystemMailbox* ' "
strQuery = strquery & " AND OU <> 'User' AND NOT
msExchhidefromA ddresslists=TRU E order by name"
else
strQuery = "SELECT name, mail, telephonenumber , homephone, mobile,
postalcode, st, title, info,"
strQuery = strquery & "distinguishedN ame FROM 'LDAP://domain.comWHERE
objectcategory= 'person' and "
strQuery = strquery & " objectClass = 'user' AND msExchHomeServe rName =
'*cn=ATVMAILSVR ' AND name <> 'SystemMailbox* ' "
strQuery = strquery & " AND OU <> 'User' AND NOT
msExchhidefromA ddresslists=TRU E order by " & request.queryst ring("order")
end if

' ------------------------ Open Recordset & populate various
counters ------------------------------------
objRS.Open strQuery, objConn, 1, 1
intRowCount = objrs.recordcou nt
objrs.MoveFirst
' ------------------------ loop through recordset and display
details ------------------------------------