Search all objects in all DBs for code fragments

USE MASTER
GO

CREATE PROCEDURE sp_FindCodeStr
@SearchStr varchar(1000),
@PrintOnly bit = 0

AS

SET NOCOUNT ON

DECLARE @sql nvarchar(4000)

SELECT @sql = ISNULL(@sql + char(13) + 'UNION ALL' + char(13), '') +
'SELECT DISTINCT ''' + name + ''' as db, o.name
FROM ' + name + '.dbo.sysobjects o
JOIN ' + name + '.dbo.syscomments c
ON o.id = c.id
WHERE text like ''%' + @SearchStr+ '%''
/* Elminate system objects & VSS objects */AND name not like ''sys%''
AND name not like ''dt/_%'' ESCAPE ''/''
AND name not like ''fn/_%'' ESCAPE ''/'''

FROM sysdatabases
WHERE name NOT IN('master', 'model', 'tempdb', 'msdb')

IF @PrintOnly = 1 PRINT @sql

ELSE EXEC sp_executesql @sql