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 loServersHTH