SP For Grant Permissions at once

Following is the SP that grant permissions to the user at once. Procedure expects two parameters ( DatabaseName & UserName ). One can easily modify the SP to grant the desired permission to the user.SP uses the undocumented XP ( XP_EXECRESULTSET )

So Here we go !!!

CREATE PROCEDURE ProcGrantPermission
(
@p_DbNameVARCHAR(100),
@p_UserNameVARCHAR(100)
)
AS
BEGIN

DECLARE @v_GrantString VARCHAR(4000)

-- Grant Select On Tables
SET @v_GrantString = 'Select ' + '''' + 'Grant Select On [' + '''' + ' + Name + ' + '''' + '] To ' + @p_UserName + '''' + ' From Sysobjects Where Type = ' + '''' + 'U' + ''''
EXEC Master..XP_EXECRESULTSET @v_GrantString , @p_DbName

-- Grant Execute On Procedures and Functions
SET @v_GrantString = 'Select ' + '''' + 'Grant Execute On [' + '''' + ' + Name + ' + '''' + '] To ' + @p_UserName + '''' + ' From Sysobjects Where Type = ' + '''' + 'P' + '''' + ' OR Type = ' + '''' + 'FN' + ''''
EXEC Master..XP_EXECRESULTSET @v_GrantString , @p_DbName

END

Hi mayur,
code is good but
do you feel using undocument XP is good, as MS says they can simply ignore these undocumented xp in future release....