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

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

原讨论链接：http://community.csdn.net/expert/topicview1.asp?id=3733531

所属论坛：VB.NET     审核组：.NET技术

提问者：bbq12345     解决者：alexzhang00

感谢：alexzhang00、chenyuming2004、smx717616

关键字：

答案：

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

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
不过速度比较慢，
要等很久。