Como identificar campos identity

Script para extraer los campos identity con sus caracteristicas de toda la base de datos donde sea ejecutado.

SELECT IDENT_SEED(TABLE_NAME) AS Seed, IDENT_INCR(TABLE_NAME) AS Increment, TABLE_NAME 
FROM INFORMATION_SCHEMA.TABLES 
WHERE OBJECTPROPERTY(OBJECT_ID(TABLE_NAME), 'TableHasIdentity') = 1 
AND TABLE_TYPE = 'BASE TABLE'