VS2005: Get MSSQL server list on network

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

vb Code:

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.

vb Code:

GetRDBMSServerList(RDBMSList)

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

Code:

---

Imports System.Data.Sql
Imports System.Data

---