Метод IADsContainer::get__NewEnum (iads.h)
Метод IADsContainer::get__NewEnum получает объект перечислителя для контейнера. Объект перечислителя реализует интерфейс IEnumVARIANT для перечисления дочерних элементов объекта контейнера.
Синтаксис
HRESULT get__NewEnum(
[out] IUnknown **retval
);
Параметры
[out] retval
Указатель на указатель IUnknown , который получает объект перечислителя. Вызывающий объект должен освободить этот интерфейс, когда он больше не требуется.
Возвращаемое значение
Этот метод поддерживает стандартные возвращаемые значения, включая S_OK для успешной операции. Дополнительные сведения о кодах ошибок см. в разделе Коды ошибок ADSI.
Комментарии
Между "get" и "NewEnum" в имени функции есть два символа подчеркивания ("__").
В Visual Basic используйте параметр ForEach... оператор для неявного вызова метода IADsContainer::get__NewEnum .
В C/C++ используйте вспомогательные функции ADsBuildEnumerator, ADsEnumerateNext и AdsFreeEnumerator .
Примеры
В следующем примере кода показано, как перечислить дочерние объекты в контейнере.
Dim cont As IADsContainer
On Error GoTo Cleanup
Set cont = GetObject("LDAP://OU=Sales,DC=Fabrikam,DC=com")
For Each obj In cont
Debug.Print obj.Name
Next
Cleanup:
If(Err.Number<>0) Then
MsgBox("An error has occurred. " & Err.Number)
End If
Set cont = Nothing
В следующем примере кода показано, как перечислить объект, содержащийся в контейнере.
IEnumVARIANT *pEnum = NULL;
IADsContainer *pCont = NULL;
LPUNKNOWN pUnk = NULL;
VARIANT var;
IDispatch *pDisp = NULL;
ulong lFetch;
IADs *pADs = NULL;
// In this sample, skip error checking.
ADsGetObject(L"LDAP://OU=Sales,DC=Fabrikam,DC=COM",
IID_IADsContainer, (void**) &pCont);
pCont->get__NewEnum(&pUnk);
pCont->Release();
pUnk->QueryInterface(IID_IEnumVARIANT, (void**) &pEnum);
pUnk->Release();
// Enumerate.
HRESULT hr = pEnum->Next(1, &var, &lFetch);
while(SUCCEEDED(hr) && lFetch > 0)
{
if (lFetch == 1)
{
BSTR bstr;
pDisp = V_DISPATCH(&var);
pDisp->QueryInterface(IID_IADs, (void**)&pADs);
pDisp->Release();
hr = pADs->get_Name(&bstr);
if(SUCCEEDED(hr))
{
SysFreeString(bstr);
}
pADs->Release();
}
VariantClear(&var);
hr = pEnum->Next(1, &var, &lFetch);
};
pEnum->Release();
Требования
Минимальная версия клиента | Windows Vista |
Минимальная версия сервера | Windows Server 2008 |
Целевая платформа | Windows |
Header | iads.h |
DLL | Activeds.dll |