TSQL To Show All Merge Replication Articles

CREATE TABLE ##publications
(
	DatabaseName varchar(1000),
	TableName varchar(1000)
);

declare @cmd varchar(4000)  
set @cmd='use [?];
IF (EXISTS (SELECT * 
                 FROM INFORMATION_SCHEMA.TABLES 
                 WHERE TABLE_SCHEMA = ''dbo'' 
                 AND  TABLE_NAME = ''sysmergepublications''))
BEGIN				 
	INSERT INTO ##publications
	SELECT db_name(), a.name
	FROM dbo.sysmergepublications p
	JOIN dbo.[sysmergeextendedarticlesview] a on p.pubid=a.pubid;
END
'  
exec sp_MSforeachdb @cmd;


select * FROM ##publications
drop table ##publications;

CREATE TABLE ##publications
(
	DatabaseName varchar(1000),
	TableName varchar(1000)
);

DECLARE @databaseList as CURSOR;
DECLARE @databaseName as NVARCHAR(500);
DECLARE @tsql AS NVARCHAR(500);
 
SET @databaseList = CURSOR  LOCAL FORWARD_ONLY STATIC READ_ONLY 
FOR
        SELECT QUOTENAME([name])
       FROM sys.databases
       WHERE [state] = 0
       AND [is_read_only] = 0;
OPEN @databaseList;
FETCH NEXT FROM @databaseList into @databaseName;
WHILE @@FETCH_STATUS = 0
BEGIN
    SET @tsql = '
	IF (EXISTS (SELECT * 
                 FROM ' + @databaseName + '.INFORMATION_SCHEMA.TABLES 
                 WHERE TABLE_SCHEMA = ''dbo'' 
                 AND  TABLE_NAME = ''sysmergepublications''))
BEGIN				 
	INSERT INTO ##publications
	SELECT ''' + @databaseName + ''', a.name
	FROM ' + @databaseName + '.dbo.sysmergepublications p
	JOIN ' + @databaseName + '.dbo.[sysmergeextendedarticlesview] a on p.pubid=a.pubid;
END
'  ;

	--print @tsql;
    EXECUTE (@tsql);
    FETCH NEXT FROM @databaseList into @databaseName;
END
CLOSE @databaseList;
DEALLOCATE @databaseList;


select * FROM ##publications
drop table ##publications;