error 3706 provider cannot be found

[G.Tjaarda]

Hello,

We have multiple NT4 workstations.
Only one of them can get information from active directory.
All the other NT4 stations get an error 3706 provider cannot be found.

The code I use is as follows:

Set oConnection1 = CreateObject("ADODB.Connection")
Set oCommand1 = CreateObject("ADODB.Command")
oConnection1.Provider = "ADsDSOObject"
oConnection1.Open "Active Directory Provider"
Set oCommand1.ActiveConnection = oConnection1 <----------- error on
this line

The last line (5th) gives the error.

The references I made are as follows ( the vba code is in Outlook 2000)

Visual basic for applications
Microsoft Outlook 9.0 Object library
Ole automation
Microsoft forms 2.0 object library
Microsoft Office 9.0 object library
Microsoft scripting runtime
Microsoft ActiveX data objects 2.5 library
Microsoft Word 8.0 object library
Microsoft DAO 3.5

I found some articles that could give solutions, therfore I installed the
following:

Sp6a, Mdac2.8, Adsi2.5, dsclient, jet4.0SP7, vbrun6.0SP5, IE6.0.
After installation and many reboots, the problem still exists.
I hope you can give me the solution?

 

[SA]

G.

The provider name for the OLE Db provider for Active directory is: "OLE Db
Provider for Microsoft Directory Services"

Change your line 3 and see if that helps. You can always get the proper
name for OLE db providers installed on the system by simply creating an
empty text file on your desktop and changing its extension to UDL.