请问VB.NET中能不能自动获取局域网所有SQL服务器的名称？

语句应该如何写？谢谢
---------------------------------------------------------------

1. 添加 COM 引用 “MICROSOFT SQLDOM OBJECT LIBRARY”
2.
Private Function GetAllSQLServers() As ArrayList
Dim oApp As SQLDMO.ApplicationClass = New SQLDMO.ApplicationClass
Dim sArrList As ArrayList = New ArrayList
Try
Dim sServerList As SQLDMO.NameList = oApp.ListAvailableSQLServers()
If Not IsNothing(sServerList) Then
For i As Integer = 1 To sServerList.Count
sArrList.Add(sServerList.Item(i).ToString())
Next
sServerList = Nothing
Return sArrList
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
Return Nothing
Finally
oApp = Nothing
End Try
End Function
---------------------------------------------------------------
调用SQLDOM
不过速度比较慢，
要等很久。