Generate create table script in SQL Server 2008

SELECT      'create table [' + so.name + '] (' + o.list + ')' + CASE
                                                                    WHEN tc.Constraint_Name IS NULL THEN ''
                                                                    ELSE 'ALTER TABLE ' + so.Name + ' ADD CONSTRAINT ' + tc.Constraint_Name + ' PRIMARY KEY ' + ' (' + LEFT(j.List, Len(j.List) - 1) + ')'
                                                                END
FROM        sysobjects so
CROSS apply (SELECT '  [' + column_name + '] ' + data_type + CASE data_type
                                                                 WHEN 'sql_variant' THEN ''
                                                                 WHEN 'text' THEN ''
                                                                 WHEN 'decimal' THEN '(' + cast(numeric_precision_radix AS VARCHAR) + ', ' + cast(numeric_scale AS VARCHAR) + ')'
                                                                 ELSE COALESCE('(' + CASE
                                                                                         WHEN character_maximum_length = -1 THEN 'MAX'
                                                                                         ELSE cast(character_maximum_length AS VARCHAR)
                                                                                     END + ')', '')
                                                             END + ' ' + CASE
                                                                             WHEN EXISTS (SELECT id
                                                                                          FROM   syscolumns
                                                                                          WHERE  object_name(id) = so.name
                                                                                                 AND name = column_name
                                                                                                 AND columnproperty(id, name, 'IsIdentity') = 1) THEN 'IDENTITY(' + cast(ident_seed(so.name) AS VARCHAR) + ',' + cast(ident_incr(so.name) AS VARCHAR) + ')'
                                                                             ELSE ''
                                                                         END + ' ' + (CASE
                                                                                          WHEN IS_NULLABLE = 'No' THEN 'NOT '
                                                                                          ELSE ''
                                                                                      END) + 'NULL ' + CASE
                                                                                                           WHEN information_schema.columns.COLUMN_DEFAULT IS NOT NULL THEN 'DEFAULT ' + information_schema.columns.COLUMN_DEFAULT
                                                                                                           ELSE ''
                                                                                                       END + ', '
             FROM   information_schema.columns
             WHERE  table_name = so.name
             ORDER  BY ordinal_position
             FOR XML PATH('')) o (list)
            LEFT JOIN information_schema.table_constraints tc ON tc.Table_name = so.Name
                                                                 AND tc.Constraint_Type = 'PRIMARY KEY'
CROSS apply (SELECT '[' + Column_Name + '], '
             FROM   information_schema.key_column_usage kcu
             WHERE  kcu.Constraint_Name = tc.Constraint_Name
             ORDER  BY ORDINAL_POSITION
             FOR XML PATH('')) j (list)
WHERE       xtype = 'U'
            AND name NOT IN ('dtproperties')
            and so.name='MFTAcountrycurrency'