LOCAL oSQLApp AS SQLDMO.APPLICATION oSQLApp = CREATEOBJECT('SQLDMO.Application') LOCAL oServers AS SQLDMO.SQLServers * lista os Servidores disponiveis oServers = oSQLApp.ListAvailableSQLServers FOR i = 1 TO oServers.COUNT ? ALLTRIM(oServers.ITEM(i)), i ENDFORIf you dont get an answer for servers in the network, you have to set Cliconfg in DOS prompt,