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

int main(int argc, char **argv) {
	HENV hEnv;
	RETCODE RetCode;
	SQLCHAR SqlState[ 6 ], SqlMessage[SQL_MAX_MESSAGE_LENGTH];
	SQLINTEGER SqlError;
	SQLSMALLINT MessageLen, ServerNameLen, DescriptionLen;
	SQLCHAR ServerName[ 1024 ], Description[ 1024 ];

	int i;
	char FunctionName[ 32 ];
	


	if(argc< 2 ) {
		printf("Usage: List_DSN_for_Driver <driver name>\n\tuse qoutes if driver name has spaces\n");
		exit( 1 );
	}

	RetCode = SQLAllocHandle( SQL_HANDLE_ENV, SQL_NULL_HANDLE, &hEnv );
	if (RetCode != SQL_SUCCESS) {
		strcpy(FunctionName, "SQLAllocHandle(ENV)");
ENV_Error:
		for (i= 1 ; SQLGetDiagRec(SQL_HANDLE_ENV, hEnv, i, SqlState, &SqlError,
							SqlMessage, sizeof(SqlMessage), &MessageLen) != SQL_NO_DATA; i++) {
			printf("%s failed: %s %d %s\n", FunctionName, SqlState, SqlError, SqlMessage);
		}
		return  1 ;
	}

	RetCode = SQLSetEnvAttr(hEnv, SQL_ATTR_ODBC_VERSION, (SQLPOINTER)SQL_OV_ODBC3,  0 );
	if ((RetCode != SQL_SUCCESS) && ((RetCode != SQL_SUCCESS_WITH_INFO))) {
		strcpy(FunctionName, "SQLSetEnvAttr");
		goto ENV_Error;
	}


	RetCode = SQLDataSources(hEnv, SQL_FETCH_FIRST, ServerName, sizeof(ServerName), &ServerNameLen,
										Description, sizeof(Description), &DescriptionLen);
	if (RetCode == SQL_ERROR) {
		strcpy(FunctionName, "SQLDataSources");
		goto ENV_Error;
	}
	while((RetCode==SQL_SUCCESS) || (RetCode==SQL_SUCCESS_WITH_INFO)) {
		if (strcmp(argv[ 1 ], Description)== 0 ) {
			printf("DSN=%s\n", ServerName);
		}
		RetCode = SQLDataSources(hEnv, SQL_FETCH_NEXT, ServerName, sizeof(ServerName), &ServerNameLen,
										Description, sizeof(Description), &DescriptionLen);
		if (RetCode == SQL_ERROR) {
			strcpy(FunctionName, "SQLDataSources");
			goto ENV_Error;
		}
	}


	SQLFreeEnv( hEnv );
	return  0 ;
}