Программно найти доступные SQL серверы

Приветствую!

Имеется adp А2003 + MS SQL Server 2000

Можно ли программно узнать доступные в локальной сети MS SQL Server (ы)

сам Акс, ведь это умеет,
в смысле: Файл - Подключение и там выпадающий список с серверами
хочу сделать подобно на своей форме подключения/переподключения

Спасибо

...вот вроди что то нашел

Sub B()
On Error GoTo ErrExit
  Dim objSQLDMOApp As Object
  Dim lstAllServers As Object
  Dim lstItem As Variant
  Set objSQLDMOApp = CreateObject("SQLDMO.Application") ' app = new Application();
  Set lstAllServers = objSQLDMOApp.ListAvailableSQLServers
  MsgBox lstAllServers.Count
  For Each lstItem In lstAllServers
    MsgBox lstItem
  Next
FreeExit:
On Error Resume Next
  Set lstAllServers = Nothing
  Set objSQLDMOApp = Nothing
  Exit Sub
ErrExit:
  MsgBox Err.Description, vbCritical
  Resume FreeExit
End Sub

...но почемута - "себя любимого" (в смысле - (local)) - в упор не видит...

сам всегда всех отправляю - запытайтэ у Яндекса - и сам же ...

первая же ссылка , скл.ру - само собой))
ушел читать