Generate SQL scripts that create primary key for tables that have no primary key defined but have identity column

CreatePrimaryKeyOnIdentityColumn.sql

SELECT T.*, PK.COLUMN_NAME
INTO #Tables
FROM INFORMATION_SCHEMA.TABLES T
INNER JOIN (
    SELECT TABLE_NAME, COLUMN_NAME
    FROM INFORMATION_SCHEMA.COLUMNS
    WHERE COLUMNPROPERTY(OBJECT_ID(TABLE_NAME), COLUMN_NAME, 'IsIdentity') = 1
) PK ON PK.TABLE_NAME = T.TABLE_NAME
WHERE T.TABLE_TYPE = 'BASE TABLE'
    AND T.TABLE_NAME NOT IN (
        SELECT TABLE_NAME
        FROM INFORMATION_SCHEMA.TABLE_CONSTRAINTS
        WHERE CONSTRAINT_TYPE = 'PRIMARY KEY'
    )

DECLARE @SqlScripts NVARCHAR(MAX)
SET @SqlScripts = ''

SELECT @SqlScripts = @SqlScripts + 'ALTER TABLE ' + TABLE_SCHEMA + '.' + TABLE_NAME + ' ADD CONSTRAINT PK_' + TABLE_NAME 
    + ' PRIMARY KEY CLUSTERED ( ' + COLUMN_NAME + ' )

'
FROM #Tables

SELECT @SqlScripts

DROP TABLE #Tables