VS2005: Get MSSQL server list on network

[BrailleSchool]

If you need to obtain a list of MSSQL servers on your network, use this code snippet to add the items to a combobox.

Public Sub GetRDBMSServerList(ByVal ServerList As ComboBox)
        Try
            Dim Server As String = String.Empty
            Dim Instance As SqlDataSourceEnumerator = SqlDataSourceEnumerator.Instance
            Dim ServerDt As DataTable = Instance.GetDataSources()
 
            For Each ServerInstance As DataRow In ServerDt.Rows
                Server = String.Empty
                Server = CStr(ServerInstance("ServerName"))
 
                If ServerInstance("InstanceName").ToString.Length > 0 Then
                    Server = Server & "\" & CStr(ServerInstance("InstanceName"))
                End If
 
                With ServerList
                    .AutoCompleteMode = AutoCompleteMode.SuggestAppend
                    .AutoCompleteSource = AutoCompleteSource.ListItems
                    .DroppedDown = False
                    .Editable = True
                    .Items.Add(Server)
                End With
            Next ServerInstance
 
            ServerList.SelectedIndex = ServerList.FindStringExact(Environment.MachineName)
        Catch ArgEx As ArgumentException
            MessageBox.Show(ArgEx.ToString(), _
                            "Argument Exception", _
                            MessageBoxButtons.OK, _
                            MessageBoxIcon.Error, _
                            MessageBoxDefaultButton.Button1)
        End Try
    End Sub

If you have a ComboBox called RDBMSList, the code is not needed to be modified, otherwise you will have to pass the name of the ComboBox to the sub.

GetRDBMSServerList(RDBMSList)

You will also need to add two references to your code pane.

Imports System.Data.Sql
Imports System.Data