Как получить список пользователей домена

//*************************************************************
//*
//* Является ли пользователь локальным администратором
//* или администратором домена
//*
//*************************************************************
BOOL TDialogs::IsAdministrator(LPSTR pUser, LPSTR pDomain)
{
 //****
 CHAR                 user[MAX_NAME_SIZE];
 CHAR                 name[MAX_TEXT_SIZE];

 WCHAR              domain[MAX_NAME_SIZE];

 LPUSER_INFO_1   info;

 DWORD      read;
 DWORD      total;

 DWORD      i;

 BOOL       administrator = FALSE;

 // конвертируем параметры
 wsprintf(user,"%s",pUser);
 CharLowerBuff(user,strlen(user));
 SystemToUnicode(pDomain,(LPWORD)domain);

 // получаем список пользователей
 if( NetUserEnum(domain,1,FILTER_NORMAL_ACCOUNT,(LPBYTE *)&info,MAX_PREFERRED_LENGTH,&read,&total,NULL) == NERR_Success )
 {
    // анализируем список пользователей
    for( i=0; i<read; i++ )
    {
        // если пользователь администратор
        if( (info+i)->usri1_priv == USER_PRIV_ADMIN )
        {
            // конвертируем имя для сравнения
                                       UnicodeToSystem((LPWORD)(info+i)->usri1_name,name);
                                       CharLowerBuff(name,strlen(name));

            // если пользователь определен
            if( CompareStrings(user,name) ) administrator = TRUE;
        }
    }

    // освобождаем выделенные ресурсы
    NetApiBufferFree(info);
 }

 // возвращаем результат
 return administrator;
}