SELECT
	  sysusers.[name] [User] 
	, sysobjects.[name] [Object name]
	, CASE sysobjects.[type] 
	        WHEN  'C'    THEN 'CHECK constraint'
                WHEN  'D'    THEN 'Default or DEFAULT constraint'
	        WHEN  'F'    THEN 'FOREIGN KEY constraint'
	        WHEN 'FN'    THEN 'Scalar function'
	        WHEN 'IF'    THEN 'Inlined table-function'
	        WHEN  'K'    THEN 'PRIMARY KEY or UNIQUE constraint'
	        WHEN  'L'    THEN 'Log'
	        WHEN  'P'    THEN 'Stored procedure'
	        WHEN  'R'    THEN 'Rule'
	        WHEN 'RF'    THEN 'Replication filter stored procedure'
	        WHEN  'S'    THEN 'System table '
	        WHEN 'TF'    THEN 'Table function'
	        WHEN 'TR'    THEN 'Trigger'
	        WHEN  'U'    THEN 'User table'
	        WHEN  'V'    THEN 'View'
	        WHEN  'X'    THEN 'Extended stored procedure'
          END as [Object Name]
	, CASE [action]
		WHEN 26  THEN 'REFERENCES'
		WHEN 178 THEN 'CREATE FUNCTION'
		WHEN 193 THEN 'SELECT'
		WHEN 195 THEN 'INSERT'
		WHEN 196 THEN 'DELETE'
		WHEN 197 THEN 'UPDATE'
		WHEN 198 THEN 'CREATE TABLE'
		WHEN 203 THEN 'CREATE DATABASE'
		WHEN 207 THEN 'CREATE VIEW'
		WHEN 222 THEN 'CREATE PROCEDURE'
		WHEN 224 THEN 'EXECUTE'
		WHEN 228 THEN 'BACKUP DATABASE'
		WHEN 233 THEN 'CREATE DEFAULT'
		WHEN 235 THEN 'BACKUP LOG'
		WHEN 236 THEN 'CREATE RULE'
	END [Action]
FROM
	sysprotects 
	INNER JOIN sysusers ON sysusers.uid = sysprotects.uid
        INNER JOIN sysobjects ON sysobjects.[id] = sysprotects.[id]
WHERE
        sysusers.uid > 2
--	AND objectproperty(sysobjects.id,'IsMSShipped') = 0
--      AND sysobjects.name = 
--      AND [action] =
--	AND sysusers.[name] =