LOCAL loSQLApp,;   && SQLDMO Object
      loServers,;  && Servers Object
      lnCounter
loSQLApp = CreateObject('SQLDMO.Application')
loServers = loSQLApp.ListAvailableSQLServers()
For lnCounter = 1 TO loServers.Count
  ? lnCounter, loServers.Item(lnCounter)
EndFor
loSQLApp = NULL
RELEASE loSQLApp
loServers = NULL
RELEASE loServers