System Lock Snapshot

create table #locks (spid int, dbid int, objid int, indid int, type varchar(25), resource varchar(25),
mode varchar(25), status varchar(25))

create table #objects (dbid int, objid int, dbname varchar(255), objname varchar(255))

exec sp_MSforeachdb 'insert into #objects select db.dbid, so.id, db.name, so.name from ?..sysobjects so, 
master..sysdatabases db
where db.name = ''?''', '?'

exec sp_MSforeachdb 'insert into #objects select db.dbid, 0, db.name, '''' from master..sysdatabases db
where db.name = ''?''', '?'

insert into #locks exec sp_lock

select l.spid, o.dbname, o.objname, l.dbid, l.objid, l.indid, l.type, l.resource, l.mode, l.status
 from #locks l
left outer join #objects o on l.dbid = o.dbid and l.objid = o.objid
where l.objid <> 0
order by spid, o.dbname, o.objname

drop table #locks
drop table #objects