Object permissions by users

DECLARE	@sNombre_usuario varchar(40)  /* Nombre del usuario */
select @sNombre_usuario='<VALOR>'

if @sNombre_usuario is not null  
begin
	Select 'dbo' as propietario, sysobjects.name as Objeto, 
	CASE WHEN sysprotects.action = 193
			THEN 'SELECT'  
			     WHEN sysprotects.action = 195
				THEN 'INSERT'
		             WHEN sysprotects.action = 196
				THEN 'DELETE'
			     WHEN sysprotects.action = 197
				THEN 'UPDATE'
			     WHEN sysprotects.action = 224
				THEN 'EXECUTE'
			     WHEN sysprotects.action = 26
				THEN 'REFERENCES'
			ELSE 'UNKNOWN TYPE: ' + CAST(sysprotects.action as nvarchar(128))
			END as 'Tipo de permiso' from sysprotects, 
			sysusers,
			sysobjects
	where sysusers.uid= sysprotects.uid
	and 
		sysusers.name =@sNombre_usuario 
	and 
	sysprotects.id = sysobjects.id
		and sysusers.issqlrole <> 1
	union
	select @sNombre_usuario as propietarios, sysobjects.name as Objeto, 
		'EXECUTE' from syscomments, sysobjects
	where syscomments.id= sysobjects.id and sysobjects.uid=user_id(@sNombre_usuario)
	union
	select @sNombre_usuario as propietario, sysobjects.name as objeto, case WHEN xtype='P'
			THEN 'EXECUTE'
		WHEN xtype= 'U'	or xtype= 'V'
			THEN 'SELECT,INSERT,UPDATE,DELETE,REFERENCES'
		ELSE xtype
		end FROM sysobjects
	where uid=user_id(@sNombre_usuario) and xtype not in ('S','PK','D') 
	and sysobjects.name not like 'dt_%'
	ORDER BY Propietario,Objeto
END
else
begin
	Select user_name(sysprotects.uid) as propietario, sysobjects.name as Objeto, 
	CASE WHEN sysprotects.action = 193
			THEN 'SELECT'  
			     WHEN sysprotects.action = 195
				THEN 'INSERT'
		             WHEN sysprotects.action = 196
				THEN 'DELETE'
			     WHEN sysprotects.action = 197
				THEN 'UPDATE'
			     WHEN sysprotects.action = 224
				THEN 'EXECUTE'
			     WHEN sysprotects.action = 26
				THEN 'REFERENCES'
			ELSE 'UNKNOWN TYPE: ' + CAST(sysprotects.action as nvarchar(128))
			END as 'Tipo de permiso' from sysprotects, 
			sysusers,
			sysobjects
	where sysusers.uid= sysprotects.uid
	and 
	sysprotects.id = sysobjects.id
	and sysusers.issqlrole <> 1
	and user_name(sysprotects.uid) <> 'dbo' and user_name(sysprotects.uid) <> 'public'
	union 
	select user_name(sysobjects.uid) as propietarios, sysobjects.name as Objeto, 
		'EXECUTE' from syscomments, sysobjects
	where syscomments.id= sysobjects.id 
	and user_name(sysobjects.uid) <> 'dbo' and user_name(sysobjects.uid) <> 'public'
	union 
	select user_name(sysobjects.uid) as propietario, sysobjects.name as objeto, case WHEN xtype='P'
			THEN 'EXECUTE'
		WHEN xtype= 'U'	or xtype= 'V'
			THEN 'SELECT,INSERT,UPDATE,DELETE,REFERENCES'
		ELSE xtype
		end FROM sysobjects
	where xtype not in ('S','PK','D') 
	and sysobjects.name not like 'dt_%'
	and user_name(sysobjects.uid) <> 'dbo' and user_name(sysobjects.uid) <> 'public'
	ORDER BY Propietario,Objeto
end