How To Find All ADSI Providers on a System (233023)

MORE INFORMATION

This can be accomplished by enumerating ADs namespace members with the following code for both Microsoft Visual C++ and Microsoft Visual Basic.

Visual C++

Using Visual C++ paste the following code into a Microsoft C++ Source File:

#include <activeds.h>
#include <stdio.h>
// link with activeds.lib and adsiid.lib

void main()
{	
	IEnumVARIANT   *pEnum;
	IADsContainer  *pCont;
	IADs           *pADs;
	IDispatch      *pDisp;
	VARIANT        var;
	BSTR           bstr;
	ULONG          lFetch;
	HRESULT        hr;

	// Skipping error checking for simplicity
	CoInitialize(NULL);

	// Bind to ADs namespace
	hr = ADsGetObject(L"ADs:",IID_IADsContainer, (void**) &pCont);
   
	//Create an enumerator object in the container.
	hr=ADsBuildEnumerator(pCont, &pEnum);
	
	// Now enumerate through all providers 
	while(hr == S_OK)
	{
		hr = ADsEnumerateNext(pEnum, 1, &var, &lFetch);
		if (lFetch == 1)
		{
			pDisp = V_DISPATCH(&var);
			pDisp->QueryInterface(IID_IADs, (void**)&pADs);
			pDisp->Release();
			pADs->get_Name(&bstr);
			printf("%S\n",(LPWSTR)bstr);
			pADs->Release();
			SysFreeString(bstr);
		}
	}

    //Release the enumerator.
    if (pEnum != NULL)
	{
        ADsFreeEnumerator(pEnum);
    }
}
				

Visual Basic

First make a reference to the "Active DS Type Library" by selecting References from the Visual Basic Tools menu. Then paste the following code into a Visual Basic standard module:

Dim prov As IADsNamespaces
Dim member As IADs

Set prov = GetObject("ADs:")
For Each member In prov
   Debug.Print member.Name
Next