>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