Los moderadores, MVP y administradores podrán seguir editando, respondiendo o creando nuevos mensajes

Antes que nada gracias anticipadas.

Bueno vamos a la pregunta, tengo una aplicacion que realcé para la universidad pero obvio que mi servidorsql no tienen el mismo nombre que los de la universidad, así que eh pensado en que talvez pueda ponerle uan opcion de "seleccionar servidor de BD" en un combo con la lista de los servidores disponibles, y ahi viene las pregunta, como puedo listar los servidores disponible de un equipo?

gracias por la respuesta, espero que sea lo suficientemente clara la pregunta.

salu2 a to2

Copiado directamente de un programa mío

Private Sub
     BtnSearchInstances_Click(ByVal sender As System.Object, ByVal e As
     System.EventArgs) Handles BtnSearchInstances.Click
    Dim Src As Data.DataTable
    CmbSqlInstance.Items.Clear()
    ' Buscamos los servidores disponibles
    LblStatus.Text = "Buscando Servidores SQL Cercanos....."
    Cursor.Current = Cursors.WaitCursor
    Try
        Src = Data.Sql.SqlDataSourceEnumerator.Instance.GetDataSources()
    Catch ex As Exception
        MsgBox("Error: " & ex.Message,
             MsgBoxstyle.Exclamation, "ERROR")
        Cursor.Current = Cursors.Default
        LblStatus.Text = ""
        Exit Sub
    End Try
    ' Cargamos los nombres de servidor
    CmbSqlInstance.BeginUpdate()
    For k As Integer = 0 To Src.Rows.Count - 1
        CmbSqlInstance.Items.Add(Src.Rows(k).Item(0).ToString() + "\" + Src.Rows(k).Item(1).ToString())
    Next
    CmbSqlInstance.EndUpdate()
    If CmbSqlInstance.Items.Count > 0 Then CmbSqlInstance.SelectedIndex = 0
    Cursor.Current = Cursors.Default
    LblStatus.Text = ""
End Sub

Espero que te sirva.
Saludos.

Justamente lo que andaba buscando, muchas gracias!

Me5iAs
Iqt-Perú