>Hi Alex,
>
>Try

CLEAR
>oSQLApp = CreateObject('SQLDMO.Application')
>oServers = oSQLApp.ListAvailableSQLServers()
>For i = 1 TO oServers.Count
>	? i, oServers.Item(i)
>EndFor

Does it work?

Yes it did. Now I'll have to see why the other one didn't: Doing a trace and guessing at the way to access collection items returned by ListAvailableServers (it is via Item[x]) I see that item[1] is indeed "(local)". An error 1429 (ole error) ocurrs in the next line of code which contains the command:
FOR EACH lcServer in loServer && (loServer is the equivalent of your oServers object.

Any suggestions?

Thanks for the help.

Alex