Database Identity property resetter

CREATE PROCEDURE proc_resetIdentities
@p_cDatabaseName varchar(50),
@p_nSeedStart int=0
AS
SET NOCOUNT ON
--Declare variables 
DECLARE @strDBName SYSNAME --holds database names
DECLARE @lngDBCount INTEGER --holds database count
DECLARE @lngCounter1 INTEGER --loop counter
DECLARE @strTableName SYSNAME --holds table names
DECLARE @lngTabCount INTEGER --holds table count
DECLARE @lngCounter2 INTEGER --loop counter
DECLARE @strSQL NVARCHAR(4000) --dynamic sql string
DECLARE @lngRecTotal INTEGER-- total number of records in table
DECLARE @lngIdentValue INTEGER-- tables identity value
--Create temp tables to hold tables
CREATE TABLE #tTableName
(
numID INTEGER IDENTITY(1,1)
,strTableName SYSNAME
)
-- one database
SET @lngCounter1 = 1
--Populate database name variable
SET @strDBName = @p_cDatabaseName
--Loop through database names
WHILE @lngCounter1 <> 0
BEGIN
--Populate table names  only use user tables
SET @strSQL = 'INSERT INTO #tTableName (strTableName)
  SELECT name FROM ' + @strDBName + '.dbo.sysobjects WHERE xtype =''U'''

EXEC sp_executesql @strSQL
SET @lngTabCount = (SELECT @@ROWCOUNT) --how many tables in this database
SET @lngCounter2 = @lngTabCount --Preserve table number for future use
--Loop through all tables
WHILE @lngCounter2 <> 0
BEGIN
--Populate table name variable
SET @strTableName = (SELECT strTableName FROM #tTableName WHERE numID = @lngCounter2)
--Perform action
CREATE TABLE #tCount
(totalCount integer)
CREATE TABLE #tIdentity
(IdentValue integer)
--check number of records in table
SET @strSQL ='INSERT INTO #tcount SELECT COUNT(*) FROM '+@strDbName+'.dbo.' + @strTableName 
EXEC sp_executesql @strSQL
SELECT @lngRecTotal=totalCount
FROM #tCount

DROP TABLE #tCount
-- get current identity value for table
SET @strSQL ='INSERT INTO #tIdentity SELECT ident_current('+"'"+@strTableName+"'"+ ')'
EXEC sp_executesql @strSQL
SELECT @lngIdentValue=identValue
FROM #tIdentity
DROP TABLE #tIdentity
--check that if zero rows reset identity property
IF @lngRecTotal=0 AND @lngIdentValue<>0
BEGIN
PRINT ''
PRINT 'Reseeding: '+@strTableName
PRINT'-------------------------------------------'
-- reset identity seed
SET @strSQL ='DBCC checkIdent('+@strTableName+',RESEED,'+CONVERT(varchar,@p_nSeedStart)+')'
EXEC sp_executesql @strSQL
END
--Move backward through tables
SET @lngCounter2 = @lngCounter2 - 1
END
--Move backward through databases
SET @lngCounter1 = @lngCounter1 - 1
--Clean out table name temp table
TRUNCATE TABLE #tTableName
END
DROP TABLE #tTableName

GO