Dim dmoServer As SQLDMO.SQLServer
Dim dmoApp As SQLDMO.Application
Dim dmoNameList As SQLDMO.NameList
Dim i As Integer
Set dmoServer = New SQLDMO.SQLServer
Set dmoApp = dmoServer.Application
Set dmoNameList = dmoApp.ListAvailableSQLServers()
For i = 0 To dmoNameList.Count - 1
Debug.Print dmoNameList(i)
Next i
Peter Larsson
Helsingborg, Sweden