批量修改sqlserver表权限

Create procedure Pro_Grant
@TableName nvarchar(20)
as
BEGIN
             declare @roworder int
             declare @name varchar(50)
        declare @str varchar(500)
        declare @cnt int
        select identity(int,1,1) roworder ,name into #tmp from sysobjects where name like @TableName+'%'
        select @cnt = count(*) from #tmp
        set @roworder = 1
        while @roworder < = @cnt
        begin
                select @name = name from #tmp where roworder = @roworder
                set @str = 'grant select on '+@name+ ' to webuser'
                exec(@str)
                set @roworder = @roworder + 1
        end
        drop table #tmp
END