清空数据库中的所有用户表(删除数据库中的表)

想找一个命令能清空数据库中所有用户表的方法没有找到，只能用一个比较烦琐的方法，不知道有没有更简单的方法？

declare @strSqlTmp varchar(8000)
declare @strSql varchar(8000)
set @strSqlTmp = ''
declare online_cursor cursor for
select 'truncate table ['+name+'];' as sql from sysobjects where type='U';
open online_cursor
fetch next from online_cursor into @strSql
while @@fetch_status=0
begin
set @strSqlTmp = @strSqlTmp + @strSql
fetch next from online_cursor into @strSql
end
close online_cursor
deallocate online_cursor

--print @strSqlTmp exec(@strSqlTmp)