IDENTITY'li Tablolar ve IDENTITY Kolonları

Aktif veritabanında IDENTITY kolonu olan tabloları ve IDENTITY kolon isimlerini listeleyen scripttir:
-----------------------------------------------

SELECT TABLE_SCHEMA+'.'+TABLE_NAME
,COLUMN_NAME
FROM INFORMATION_SCHEMA.COLUMNS
WHERE ColumnProperty(OBJECT_ID(TABLE_SCHEMA+'.'+TABLE_NAME),
COLUMN_NAME, 'IsIdentity') =1
ORDER BY 1