Как получить DATA SOURCE NAMES (DSN)

void GetDSN()
{
CWaitCursor Wait;
SQLHENV henv;
RETCODE RetCode;
short len1,len2;
CString strValue;
unsigned char *ucpDSN;
ucpDSN=(unsigned char*)malloc(256);
unsigned char *ucpDescription ;             // Содержит описание ODBC драйвера для DSN
ucpDescription=(unsigned char*)malloc(256);
RetCode=::SQLAllocEnv(&henv);               // выделаем дескриптор окружения

if(RetCode == SQL_SUCCESS || RetCode == SQL_SUCCESS_WITH_INFO) // Если распределение успешно
{
    while(RetCode!=SQL_NO_DATA)
    {
       // Fetch available data sources
       RetCode=::SQLDataSources(henv, SQL_FETCH_NEXT, ucpDSN, 256, 
                                &len1, ucpDescription , 256, &len2);
      if (RetCode!=SQL_NO_DATA)                // Если данные существуют
      {
          strValue.Format("%s-%s",(LPCTSTR)ucpDSN,(LPCTSTR)ucpDescription);
          if(!strValue.IsEmpty())
                 AfxMessageBox(strValue);        // Отображаем DSN Имена

         memset(ucpDSN,'\0',sizeof(ucpDSN));  // Очищаем буфер
      }
   }
}

delete ucpDescription;
delete ucpDSN;
::SQLFreeEnv(henv);                // free environment handle
henv = NULL;
}