Local hEnv,hDBC,inString,outString,lenNeeded
Local p1,p2,p3

DECLARE short SQLAllocEnv IN odbc32.dll Integer @hEnv
DECLARE short SQLAllocConnect IN odbc32.dll Integer hEnv, Integer @hDBC
DECLARE short SQLBrowseConnect IN odbc32.dll Integer hDBC, String inString, Short inStringLen, String @outString, Short outStringMaxLen, Short @lenNeeded

hEnv= 0 
hDBC= 0 
p1=SQLAllocEnv(@hEnv)
p2=SQLAllocConnect(hEnv,@hDBC)

inString="DRIVER=SQL SERVER"+chr( 0 )
outString=space( 1024 )
lenNeeded= 0 

p3=SQLBrowseConnect(hDBC, inString, - 3 , @outString,  1024 , @lenNeeded)

MessageBox(outString)

#define SQL_HANDLE_ENV               1 
#define SQL_HANDLE_DBC               2 
#define SQL_HANDLE_STMT              3 
#define SQL_HANDLE_DESC              4 

#define SQL_ATTR_ODBC_VERSION        200 

#define SQL_OV_ODBC3                 3 

Local hEnv,hDBC,inString,outString,lenNeededPrev,lenNeeded,i
Local tFlag,tRes

DECLARE short SQLAllocHandle IN odbc32.dll Short HandleType, Integer InputHandle, Integer @OutputHandle
DECLARE short SQLSetEnvAttr IN odbc32.dll Integer EnvironmentHandle, Integer Attribute, Integer Value, Integer StringLength
DECLARE short SQLBrowseConnect IN odbc32.dll Integer hDBC, String inString, Short inStringLen, String @outString, Short outStringMaxLen, Integer @lenNeeded
DECLARE short SQLDisconnect IN odbc32.dll as _SQLDisconnect Integer ConnectionHandle
DECLARE short SQLFreeHandle IN odbc32.dll Short HandleType, Integer Handle

hEnv= 0 
hDBC= 0 
inString="DRIVER=SQL SERVER"+chr( 0 )
outString=""
tFlag=.f.

if SQLAllocHandle(SQL_HANDLE_ENV, hEnv, @hEnv)== 0 
	if SQLSetEnvAttr(hEnv,SQL_ATTR_ODBC_VERSION,SQL_OV_ODBC3, 0 )== 0 
		if SQLAllocHandle(SQL_HANDLE_DBC, hEnv, @hDBC)== 0 
			lenNeededPrev= 1024 
			lenNeeded= 0 
			for i= 0  to  1 
				outString=space(lenNeededPrev)
				tRes=SQLBrowseConnect(hDBC, inString, - 3 , @outString, lenNeededPrev, @lenNeeded)
				if tRes!= 99  or lenNeeded<=lenNeededPrev
					exit
				endif
				lenNeededPrev=lenNeeded
			endfor
			if tRes== 99 
				outString=alltrim(outString)
				tFlag=.t.
			endif
		endif
	endif
endif

if tFlag
	p0=_SQLDisconnect(hDBC)
endif
if hDBC !=  0 
	p1=SQLFreeHandle(SQL_HANDLE_DBC,hDBC)
endif
if hEnv !=  0 
	p2=SQLFreeHandle(SQL_HANDLE_ENV,hEnv)
endif

if tFlag
	MessageBox(outString)  && Между {} должны быть как раз наименования серваков
else
	MessageBox("Ошибка :(")
endif

				if tRes!= 99  or lenNeeded<lenNeededPrev
					exit
				endif
				lenNeededPrev=lenNeeded+ 1