hello Experts
Have a VBScript to query LDAP for names, nicks and SMTP addresses. It works just great dumping the contents to a file.
I have adapted it to load directly to a SQL Server db - but it stops after 222 records with the error 0x80005000 - there are about 10k recs to fetch!
The line it stops at is:
If instr(objUser.homemdb,"CN=") <> 0 then
and raises the error - please help! I have looked at all I can think of to find differences between the last record fetched and the following record it trips on - and can find only that the "surname" on the X500 entry is spelt wrongly....

Full routine below:

'On Error Resume Next
Const adOpenStatic = 3
Const adLockOptimistic = 3

Set objRootDSE = GetObject("LDAP://rootDSE")
strDomain = "LDAP://"& objRootDSE.Get("defaultNamingContext")

Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"

Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection

objCommand.CommandText = "<"& strDomain &">;(objectCategory=person)" & _
";distinguishedName,cn;subtree"
objCommand.Properties("Page Size") = 40000

Set objRecordSet = objCommand.Execute

set objSQLConn = CreateObject("ADODB.Connection")
objSQLConn.Open = "Provider=sqloledb;Data Source=myServer;Initial Catalog=myDB;Integrated Security=SSPI;"
objSQLConn.Execute "TRUNCATE TABLE tmpAddresses"

set objRS2 = CreateObject("ADODB.Recordset")
objRS2.Open "SELECT * FROM tmpAddresses",objSQLConn, adOpenStatic, adLockOptimistic

While Not objRecordSet.EOF
strUserDN = objRecordSet.Fields("DistinguishedName")
set objUser = GetObject("LDAP://"& strUserDN)

If instr(objUser.homemdb,"CN=") <> 0 then              ' <--- ERROR raised on this line

For Each entry in objUser.GetEx("proxyAddresses")

If instr(entry,"X400") = 0 Then
proxy1 = replace(entry,"SMTP:","")

If instr(proxy1, "MBX:") = 0 Then
if instr(proxy1,"SMTP:") > 0 Then
if instr(objuser.mailnickname," ") = 0 then

objRS2.AddNew
objRS2.Fields("username").Value = objuser.mailnickname
objRS2.Fields("fullname").Value = objuser.displayname
objRS2.Fields("fname").Value = objuser.givenname
objRS2.Fields("sname").Value = objuser.sn
objRS2.Fields("proxyaddr").Value = proxy1
objRS2.Update

End If
End If
End If
end if
Next

End If

objRecordSet.MoveNext

Wend
objRS2.Close
objConnection.Close
objSQLConn.Close

Set objRootDSE = Nothing
set objRecordSet = Nothing
set objConnection = Nothing
set objCommand = Nothing
set objRS2 = Nothing
set objSQLConn = Nothing
set objUser = Nothing
set objOutputFile = Nothing
set objFSO = Nothing

wscript.Echo "All Done"