Tablo alan isimlerini tek satırda alma

Herhangi bir tablomuzun tüm alan isimlerini tek satırda yanyana virgül ile ayrılarak alma scriptini sizlerle paylaşıyorum.

DECLARE @Fld nvarchar(max)

SELECT @Fld = STUFF((
SELECT
name
FROM sys.all_columns TBL (NOLOCK)
WHERE
object_id = OBJECT_ID('TABLOADI')
AND
is_computed = 0
AND
is_identity = 0
ORDER BY
name
FOR
XML PATH('')
), 1, 1, '')
SET @Fld = REPLACE(REPLACE(REPLACE(@Fld, '</name><name>',','), 'name>',''), '</',',')
SET @Fld = SUBSTRING(@Fld, 0, LEN(@Fld))
SELECT @Fld