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