LISTER LES NOMS DES INSTANCES SQL SERVER.

Function GetSQLInstances() As List(Of String)
        'On declare la liste des noms d'instances
        Dim Instances As New List(Of String)
        'On declare un objet SqlDataSourceEnumerator
        Dim s As Sql.SqlDataSourceEnumerator
        'On selectionne le type de la source de donnees
        s = Sql.SqlDataSourceEnumerator.Instance
        'On declare une table pour lire les noms d'instances
        Dim ta As DataTable = s.GetDataSources
        'Remplissage de la liste des noms d'instances
        For Each row As DataRow In ta.Rows
            Instances.Add(row(1).ToString)
        Next
        Return Instances
End Function