A script to list all current locks in SQL server

sql-get-all-locks.sql

-- With SQL

select handle.text as sql, * from
(
	select DB_NAME(dbid) as dbname, *
	from master.dbo.sysprocesses
	where blocked <> 0

	union

	select DB_NAME(dbid) as dbname, *
	from master.dbo.sysprocesses
	where spid in (
		select blocked
		from master.dbo.sysprocesses
		where blocked <> 0
	)
) p
CROSS APPLY sys.dm_exec_sql_text(p.sql_handle) AS handle
order by p.waittime desc