>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
>