Obtener nombre del Servidor donde se ejecuta la aplicación con C Sharp y VB .

En C#

               
protected OleDbConnection conexion = 
new OleDbConnection ("Provider=SQLOLEDB.1;Persist Security Info=False; User ID=sa; Password=; Initial Catalog=CSharpTest;" + buscaServidor());
        
        public static System.String buscaServidor(){
            SqlDataSourceEnumerator Descubridor_de_sql = SqlDataSourceEnumerator.Instance;
            DataTable sqls = Descubridor_de_sql.GetDataSources();
            foreach (DataRow servSQL in sqls.Rows)
            {
                String servString = "Data Source=" + servSQL["ServerName"]+"\\SQLEXPRESS";
                return servString;
            }
            return "Error";
        }

En VB

               
Protected Conexion _
As New OleDb.OleDbConnection("Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa; Password=;Initial Catalog=VBTest;" + buscaServidor())
        
     Public Function buscaServidor() As String
        Dim Descubridor_de_sql = SqlDataSourceEnumerator.Instance

        Dim sqls As DataTable = Descubridor_de_sql.GetDataSources()
        For Each servSQL As DataRow In sqls.Rows
            Dim servString As String
            servString = "Data Source=" + servSQL("ServerName") + "\SQLEXPRESS"
            Return servString
        Next
        Return "Error"
    End Function