用VB 如何列举出局域网中活动的SQL服务器?

Question

用VB 如何列举出局域网中活动的SQL服务器?
就像SQL查询分析器一样当选择服务器时会把当前的局域网中活动的SQL服务器全部列举出来,VB能做到吗?
请指教!

Answer 1

'得到SQL服务器的列表
        '必须安装SQL SERVER 2000 SP2 及以上版本
        Dim I As Short
        Dim sqlApp As New SQLDMO.Application()
        Dim ServerName As SQLDMO.NameList
        ServerName = sqlApp.ListAvailableSQLServers
        For i = 1 To ServerName.Count
            cbServer.Items.Add(ServerName.Item(i))
        Next