Get Power Query data source Connection String

GetConnectionString.m

(port as text) =>
let
//Get $Embedded$ database name
    catalog = AnalysisServices.Databases("localhost:"&port)[Name]{0},
//Run DMV query to get data source details
    dataSources = AnalysisServices.Database("localhost:"&port,catalog,
                          [Query="select * from $system.TMSCHEMA_DATA_SOURCES"])
in
    dataSources[ConnectionString]{0}