List SQL Servers on a Network

#include < sql.h >
#include < sqlext.h >

BOOL EnumerateServers()
{
   LPCTSTR pszInputParam = _T("Driver={SQL Server}");
   LPCTSTR pszLookUpKey = _T("SERVER:Server=");

   SQLHENV  hSQLEnv;
   SQLHDBC  hSQLHdbc;
   short    sConnStrOut;
   DWORD    dwRetCode;

   //Allocate the environment handle
   dwRetCode = SQLAllocHandle(SQL_HANDLE_ENV, SQL_NULL_HANDLE, &hSQLEnv);

   if (dwRetCode == SQL_SUCCESS || dwRetCode == SQL_SUCCESS_WITH_INFO)
   {
      //Set the environment attribute to SQL_OV_ODBC3
      dwRetCode = SQLSetEnvAttr(hSQLEnv, SQL_ATTR_ODBC_VERSION, (void *)SQL_OV_ODBC3, 0);

      if (dwRetCode == SQL_SUCCESS || dwRetCode == SQL_SUCCESS_WITH_INFO) 
      {
         //Allocate a connection handle
         dwRetCode = SQLAllocHandle(SQL_HANDLE_DBC, hSQLEnv, &hSQLHdbc);

         if (dwRetCode == SQL_SUCCESS || dwRetCode == SQL_SUCCESS_WITH_INFO) 
         {
            CString szConnStrOut;

            //Call SQLBrowseConnect for additional information
            dwRetCode = SQLBrowseConnect(hSQLHdbc, 
                                         (SQLCHAR *)pszInputParam, 
                                         SQL_NTS,
                                         (SQLCHAR *)(szConnStrOut.GetBuffer(ENUM_SERVERS_MAX_RET_LENGTH)),
                                         ENUM_SERVERS_MAX_RET_LENGTH,
                                         &sConnStrOut);
            szConnStrOut.ReleaseBuffer();

            //if the look up key is found
            //fill in the result set
            int iFind = szConnStrOut.Find(pszLookUpKey);
            if(iFind != -1)
            {
               CString szLookUpKey = pszLookUpKey;
               szConnStrOut = szConnStrOut.Mid(iFind+szLookUpKey.GetLength());

               iFind = szConnStrOut.Find('{');
               if(iFind != -1)
               {
                  szConnStrOut = szConnStrOut.Mid(iFind+1);
                  iFind = szConnStrOut.Find('}');
                  if(iFind != -1)
                  {
                     szConnStrOut = szConnStrOut.Left(iFind);

                     // szConnStrOut contains all servers seperated by a comma 
                     // do with it what you like

                     dwRetCode = TRUE;
                  }
               }
            }	

            SQLDisconnect(hSQLHdbc);
         }
         SQLFreeHandle(SQL_HANDLE_DBC, hSQLHdbc);
      }
      SQLFreeHandle(SQL_HANDLE_ENV, hSQLEnv);
   }
   return dwRetCode;
}