Display Defragmentation Of Selected Tables

/*---------------------------------------------------------------------------------------------
                   SCRIPT TO CHECK CURRENT FRAGMENTATION OF DATA AND INDEX
---------------------------------------------------------------------------------------------*/
SET NOCOUNT ON

DECLARE@ListItemvarchar(255),
@Listvarchar(1000),
@Posint,
@Delimvarchar(10),
@Sqlvarchar(355),
@IndexItemvarchar(255)

---------------------------- CHANGE THESE VARIABLES BEFORE RUNNING  ---------------------------
-- Choose a separator for you list of table(s)
SELECT@Delim = ','
-- What table(s) shall be checked, type them in separated with the separator chosen above
-- Note that the list shall start and end with a single quationmark
SELECT@List = 'table1, table2, table3, table4, table5...'
-----------------------------------------------------------------------------------------------

CREATE TABLE #DBCC (
[ObjectName]sysname,
[ObjectID]int,
[IndexName]sysname,
[IndexId]int,
[Level]int,
[Pages]int,
[Rows]int,
[MinimumRecordSize]int,
[MaximunRecordSize]int,
[AvarageRecordSize]decimal(38,15),
[ForwardRecords]int,
[Extents]int,
[ExtentSwitches]int,
[AvarageFreeBytes]decimal(38,15),
[AvaragePageDensity]decimal(38,15),
[ScanDensity]decimal(5,2),
[BestCount]int,
[ActualCount]int,
[LogicalFragmentation]decimal(5,2),
[ExtentFragmentation]decimal(5,2) )

CREATE TABLE #NonExistent (
[name]sysname )

-- Check that the list end with a separator
IF RIGHT(@List,LEN(@Delim)) <> @Delim
BEGIN
SELECT@List = LTRIM(RTRIM(@List))+ @Delim
END
SELECT @Pos = CHARINDEX(@Delim, @List, 1)

IF REPLACE(@List, @Delim, '') <> ''
BEGIN
-- Split the list of table(s) and run DBCC SHOWCONTIG, store the result in #DBCC
WHILE @Pos > 0
BEGIN
SELECT@ListItem = LTRIM(RTRIM(LEFT(@List, @Pos - 1)))
-- Check that there really is text between the separator(s)
-- and that the table exist in sysobjects
IF ( @ListItem <> '' AND (SELECT COUNT(*) FROM sysobjects WHERE name = @ListItem AND type = 'U')=1 )
BEGIN
SELECT@Sql = 'DBCC SHOWCONTIG(''' + @ListItem + ''') WITH ALL_INDEXES, TABLERESULTS'
INSERTINTO #DBCC
EXEC(@Sql)
END
ELSE
BEGIN
INSERT INTO #NonExistent ( [name] )
VALUES ( @ListItem )
END
SELECT@List = RIGHT(@List, LEN(@List) - @Pos - LEN(@Delim) + 1)
SELECT@Pos = CHARINDEX(@Delim, @List, 1)
END
END

IF ( (SELECT COUNT(*) FROM #NonExistent)>0 )
BEGIN
SELECT[name] AS 'NonEistingTables'
FROM#NonExistent
ORDER BY
[name]
END

SELECT*
FROM#DBCC

-- Clean Up
DROP TABLE #DBCC
DROP TABLE #NonExistent