Export MSSQL database dictionary

Select  
( Case   When A. colorder = 1   Then D. Name Else   ''   End ) N ' Table Name ' ,
A. colorder n ' FIELD No. ' ,
A. Name n ' Field name ' ,
( Case   When   Columnproperty (A. ID, A. Name, ' Isidentity ' ) = 1   Then   ' √ ' Else   ''   End ) N ' Identifier ' ,
( Case   When ( Select   Count ( * )
  From Sysobjects
  Where (Name In
( Select Name
From Sysindexes
Where (ID = A. ID) And (Indid In
( Select Indid
From Sysindexkeys
Where (ID = A. ID) And (Colid In
( Select Colid
From Syscolumns
Where (ID = A. ID) And (Name = A. Name ))))))) And
(Xtype =   ' PK ' )) > 0   Then   ' √ '   Else   ''   End ) N ' Primary Key ' ,
B. Name n ' Type ' ,
A. length N ' Bytes occupied ' ,
  Columnproperty (A. ID, A. Name, ' Precision ' ) As N ' Length ' ,
  Isnull ( Columnproperty (A. ID, A. Name, ' Scale ' ), 0 ) As N ' Decimal places ' ,
( Case   When A. isnullable = 1   Then   ' √ ' Else   ''   End ) N ' Null allowed ' ,
  Isnull (E. Text , '' ) N ' Default Value ' ,
  Isnull (G. [ Value ] , '' ) As N ' Field description '
-- Into # TX

From Syscolumns Left   Join Policypes B
On A. xtype = B. xusertype
Inner   Join Sysobjects d
On A. ID = D. id And D. xtype = ' U '   And D. Name <> ' Dtproperties '
Left   Join Syscomments E
On A. cdefault = E. ID
Left   Join Sysproperties g
On A. ID = G. ID And A. colid = G. smallid
Order   By   Object_name (A. ID), A. colorder