Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

ADSI

Status
Not open for further replies.
FengShui1998

FengShui1998

MIS
Apr 27, 1999
705
0
0
US

Hi,

I'm trying to query our Global Catalog server using ADSI.
I wrote a script that runs ok in vbscript. However when I port it to an ASP page it, I get the following.


Provider error '80004005'

Unspecified error

The code is below:

<!-- #include file=&quot;adovbs.inc&quot; -->
</head>
<body class=&quot;body&quot;>
TEST
<%
Set Container = GetObject(&quot;GC:&quot;)
For each Obj in Container
Set GC = Obj
Next
ADsPath = GC.ADsPath

' Query based on Employee ID
SQLStmt = &quot;Select cn, distinguishedName, EmployeeID, homeMDB, SamAccountName,&quot; & _
&quot;Mail, legacyExchangeDN, whenChanged, whenCreated, proxyAddresses From '&quot; & _
ADsPath & &quot;' WHERE objectCategory='person' AND objectClass='user' AND EmployeeID = &quot; & _
&quot;'&quot; & &quot;29316&quot; & &quot;'&quot;

Set con = CreateObject(&quot;ADODB.Connection&quot;)
con.Provider = &quot;ADsDSOObject&quot;
con.Open
Set conCommand = CreateObject(&quot;ADODB.Command&quot;)
Set conCommand.ActiveConnection = con
Set rs = con.Execute(SQLStmt)
If rs.recordcount > 0 Then
' Information may not be in the first record
rs.movefirst
Do While NOT rs.eof
If instr(rs(&quot;mail&quot;), &quot;zz&quot;) = 1 then ' Ignore old mailboxes
rs.movenext
ElseIf rs(&quot;homeMDB&quot;) <> &quot;&quot; then
homeMDB = rs(&quot;homeMDB&quot;)
response.write rs(&quot;homeMDB&quot;)
exit do
Else
rs.movenext
End If
Loop
Else
homeMDB = &quot;Not found&quot;
End If

%>

Thanks for any help.

fengshui_1998
 
Sort by date Sort by votes
Well, I don't fully understand what you are doing but I'm pretty sure ASP cannot handle this line:

Set Container = GetObject(&quot;GC:&quot;)

There is no GetObject() function or method in ASP that I know of.

If you're working with a SQLServer database you might have better luck working through a stored procedure.

HTH
Falcon


 
Upvote 0 Downvote
Did you get a solution to this problem. I am writing a similar ASP page now and am getting the same error. My error occurs at the .execute command. Just seeing if there is a solution. Thanks.
 
Upvote 0 Downvote
I have isgten's problem.
There is an error at the "execute" command
I've heardn that it could be an IIS configuration problem.

Has anyone figured this out?

Thanks a lot,
Rikki
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

ZernanToledo
  • Locked
  • Question
ADSI/LDAP
Replies
4
Views
32
Tarwn
Tarwn
palagrim
  • Locked
  • Question
Changing passwords with ADSI
Replies
3
Views
28
palagrim
palagrim
palagrim
  • Locked
  • Question
ASP with Active Directory (ADSI) 1
Replies
8
Views
45
emozley
emozley
mlowe9
  • Locked
  • Question
adsi/ldap and asp 1
Replies
4
Views
29
mlowe9
mlowe9
stevebanks
  • Locked
  • Question
Looping Problem involving ADSI
Replies
9
Views
42
Tarwn
Tarwn

Part and Inventory Search

Sponsor

Back
Top