Énumération des réplicas d’un service
Cette rubrique inclut un exemple de code qui énumère les instances installées d’un service répliqué sur différents ordinateurs hôtes au sein d’une entreprise. Pour modifier le mot de passe du compte de service pour chaque instance d’un service répliqué, utilisez cet exemple de code conjointement avec l’exemple de code de la rubrique Modification du mot de passe sur le compte d’utilisateur d’un service.
L’exemple de code suppose que chaque instance de service a son propre objet de point de connexion de service (SCP) dans le répertoire. Un SCP est un objet de la classe serviceConnectionPoint . Cette classe a un attribut de mots clés , qui est un attribut à valeurs multiples répliqué dans chaque catalogue global (GC) de la forêt. L’attribut mots clés du SCP de chaque instance contient le GUID de produit du service. Cela permet de rechercher toutes les SSP pour les différentes instances de service en recherchant dans un GC des objets avec un attribut de mots clés égal au GUID du produit.
L’exemple de code obtient un pointeur IDirectorySearch vers un GC et utilise la méthode IDirectorySearch::ExecuteSearch pour rechercher les SSP. N’oubliez pas que le GC contient une réplica partielle pour chaque SCP. Autrement dit, il contient certains des attributs SCP, mais pas tous. Dans cet exemple de code, concentrez-vous sur l’attribut serviceDNSName, qui contient le nom DNS du serveur hôte pour ce service instance. Comme serviceDNSName n’est pas l’un des attributs répliqués dans un GC, l’exemple de code utilise un processus en deux étapes pour le récupérer. Tout d’abord, il utilise la recherche GC pour obtenir le nom unique (DN) du SCP, puis il utilise ce nom de domaine pour se lier directement au SCP afin de récupérer la propriété serviceDNSName .
HRESULT EnumerateServiceInstances(
LPWSTR szQuery, // Search string filter.
LPWSTR *pszAttribs, // An array of attributes
// to retrieve.
DWORD dwAttribs, // # of attributes requested.
DWORD *pdwAttribs, // # of attributes retrieved.
ADS_ATTR_INFO **ppPropEntries // Returns a pointer to the
// retrieved attributes.
)
{
HRESULT hr;
IEnumVARIANT *pEnum = NULL;
IADsContainer *pCont = NULL;
VARIANT var;
IDispatch *pDisp = NULL;
BSTR bstrPath = NULL;
ULONG lFetch;
IADs *pADs = NULL;
int iRows=0;
static IDirectorySearch *pSearch = NULL;
static ADS_SEARCH_HANDLE hSearch = NULL;
// Parameters for IDirectoryObject.
IDirectoryObject *pSCP = NULL;
// Structures and parameters for IDirectorySearch.
DWORD dwPref;
ADS_SEARCH_COLUMN Col;
ADS_SEARCHPREF_INFO SearchPref[2];
// First time through; set up the search.
if (pSearch == NULL)
{
// Bind to the GC: namespace container object. The GC DN
// is a single immediate child of the GC: namespace, which must
// be obtained through enumeration.
hr = ADsGetObject(L"GC:",
IID_IADsContainer,
(void**) &pCont );
if (FAILED(hr)) {
_tprintf(TEXT("ADsGetObject(GC) failed: 0x%x\n"), hr);
goto Cleanup;
}
// Obtain an enumeration interface for the GC container.
hr = ADsBuildEnumerator(pCont,&pEnum);
if (FAILED(hr)) {
_tprintf(TEXT("ADsBuildEnumerator failed: 0x%x\n"), hr);
goto Cleanup;
}
// Enumerate. There is only one child of the GC: object.
hr = ADsEnumerateNext(pEnum,1,&var,&lFetch);
if (( hr == S_OK ) && ( lFetch == 1 ) )
{
pDisp = V_DISPATCH(&var);
hr = pDisp->QueryInterface( IID_IADs, (void**)&pADs);
if (hr == S_OK)
hr = pADs->get_ADsPath(&bstrPath);
}
if (FAILED(hr)) {
_tprintf(TEXT("Enumeration failed: 0x%x\n"), hr);
goto Cleanup;
}
// Now bstrPath contains the ADsPath for the current GC.
// Bind the GC to get the search interface.
hr = ADsGetObject(bstrPath,
IID_IDirectorySearch,
(void**)&pSearch);
if (FAILED(hr)) {
_tprintf(TEXT("Failed to bind search root: 0x%x\n"), hr);
goto Cleanup;
}
// Set up a deep search.
// Thousands of objects are not expected
// in this example; request 1000 rows per page.
dwPref=sizeof(SearchPref)/sizeof(ADS_SEARCHPREF_INFO);
SearchPref[0].dwSearchPref = ADS_SEARCHPREF_SEARCH_SCOPE;
SearchPref[0].vValue.dwType = ADSTYPE_INTEGER;
SearchPref[0].vValue.Integer = ADS_SCOPE_SUBTREE;
SearchPref[1].dwSearchPref = ADS_SEARCHPREF_PAGESIZE;
SearchPref[1].vValue.dwType = ADSTYPE_INTEGER;
SearchPref[1].vValue.Integer = 1000;
hr = pSearch->SetSearchPreference(SearchPref, dwPref);
if (FAILED(hr)) {
_tprintf(TEXT("Failed to set search prefs: 0x%x\n"), hr);
goto Cleanup;
}
// Execute the search. From the GC, get the distinguished name
// of the SCP. Use the DN to bind to the SCP and get the other
// properties.
hr = pSearch->ExecuteSearch(szQuery, pszAttribs, 1, &hSearch);
if (FAILED(hr)) {
_tprintf(TEXT("ExecuteSearch failed: 0x%x\n"), hr);
goto Cleanup;
}
}
// Get the next row.
hr = pSearch->GetNextRow(hSearch);
// Process the row.
if (SUCCEEDED(hr) && hr !=S_ADS_NOMORE_ROWS)
{
// Get the distinguished name of the object in this row.
hr = pSearch->GetColumn(hSearch, L"distinguishedName", &Col);
if FAILED(hr) {
_tprintf(TEXT("GetColumn failed: 0x%x\n"), hr);
goto Cleanup;
}
// Bind to the DN to get the properties.
if (Col.dwADsType == ADSTYPE_CASE_IGNORE_STRING)
{
LPWSTR szSCPPath =
new WCHAR[7 + lstrlenW(Col.pADsValues->CaseIgnoreString) + 1];
wcscpy_s(szSCPPath, L"LDAP://");
wcscat_s(szSCPPath, Col.pADsValues->CaseIgnoreString);
hr = ADsGetObject(szSCPPath,
IID_IDirectoryObject,
(void**)&pSCP);
delete szSCPPath;
if (SUCCEEDED(hr))
{
hr = pSCP->GetObjectAttributes(pszAttribs, dwAttribs,
ppPropEntries, pdwAttribs);
if(FAILED(hr)) {
_tprintf(TEXT("GetObjectAttributes Failed."), hr);
goto Cleanup;
}
}
}
pSearch->FreeColumn(&Col);}
Cleanup:
if (bstrPath)
SysFreeString(bstrPath);
if (pSCP)
pSCP->Release();
if (pCont)
pCont->Release();
if (pEnum)
ADsFreeEnumerator(pEnum);
if (pADs)
pADs->Release();
if (pDisp)
pDisp->Release();
return hr;
}