It works in your machine? Interesting. In mine, FOR EACH fails, but if I replace it with FOR i=1 TO oServers.Count it works. From that it would seem that oServers is not a collection, which is needed for the FOR EACH, no?

For the moment I am off the hook, but am curious why it worked in your machine.

Thanks.

Alex

>Alex,
>
>This works on my PC.

CLEAR
>oSQLApp = CreateObject('SQLDMO.Application')
>oServers = oSQLApp.ListAvailableSQLServers()
>FOR EACH lcServer IN oServers
>	? lcServer
>ENDFOR