HOW TO: Find Distribution List Membership for a Given Recipient

/*
   include activeds.h
   link with activeds.lib and adsiid.lib
*/ 

HRESULT func ()
{
   HRESULT hr;
   IADs *pADs;
   VARIANT pvProp;
   BSTR bstrpropName;
   long lLBound, lUBound;
      
   // Initialization
   VariantInit(&pvProp);
   CoInitialize(NULL);
   bstrpropName = SysAllocString(L"memberOf");
      
   // Bind to an Exchange recipient object
   hr = ADsGetObject(L"LDAP://servername/o=org/ou=site/cn=recipients/cn=fhc", IID_IADs, (void**) &pADs );
   if ( !SUCCEEDED(hr) )
   {
      return hr;
   }
      
   // Get recipient's members
   hr = pADs->Get(bstrpropName, &pvProp);
   if (FAILED(hr))
   {
      return hr;
   }
   
   if (VT_BSTR == pvProp.vt)  /* only one DL */ 
   {
      printf ("%S\n", pvProp.bstrVal);
   }
   else                 /* multiple DLs in an array */ 
   {
      SafeArrayGetLBound(pvProp.parray, 1, &lLBound);
      SafeArrayGetUBound(pvProp.parray, 1, &lUBound);
      
      for (long i = lLBound; i <= lUBound; i++)
      {
         VARIANT svar;
         SafeArrayGetElement(pvProp.parray, &i, &svar);
         if (VT_BSTR == svar.vt && svar.bstrVal)
            printf("\n%S",svar.bstrVal);
      }
   }
   
   // Releasing
   VariantClear(&pvProp);
   SysFreeString (bstrpropName);
   pADs->Release();
   
   return S_OK;
}
				

Dim RecipObj As IADs
Dim memberOf As Variant

Set RecipObj = GetObject("LDAP://servername/o=org/ou=site/cn=recipients/cn=fhc")
memberOf = RecipObj.Get("memberOf")

If IsArray(memberOf) Then 'User is on more than one DL
    For Each member In memberOf
       Debug.Print member
    Next
Else
    Debug.Print memberOf
End If