Scripts To Find Locks In SQLServer

Hello,

I'm writing a script to finds locks in SQLServer, but as I'm not a great SQLServer developper, I need a little help with my last procedure (see below).

I can't use a variable nor in a FROM clause nor with a USE command.

Has someone an idee how to resilve it !


-- DECLARE @DBname varchar(100)
-- DECLARE @OBJname varchar(100)
--
-- DECLARE LockedObjects CURSOR FOR
-- SELECT distinct db.name,
-- rsc_objid
-- FROM master.dbo.syslockinfo,
-- master.dbo.spt_values v,
-- master.dbo.spt_values x,
-- master.dbo.spt_values u,
-- master.dbo.sysdatabases db,
-- master.dbo.sysprocesses pdid
-- WHERE req_spid in (SELECT spid
-- FROM master.dbo.sysprocesses
-- WHERE spid IN (SELECT blocked FROM master.dbo.sysprocesses)
-- AND blocked = 0)
-- AND master.dbo.syslockinfo.rsc_type = v.number
-- AND v.type = 'LR'
-- AND master.dbo.syslockinfo.req_status = x.number
-- AND x.type = 'LS'
-- AND master.dbo.syslockinfo.req_mode + 1 = u.number
-- AND u.type = 'L'
-- AND db.dbid = rsc_dbid
-- AND req_spid = pdid.spid
--
-- OPEN LockedObjects
--
-- FETCH NEXT FROM LockedObjects
-- INTO @DBname, @OBJname
--
-- WHILE @@FETCH_STATUS = 0
-- BEGIN
--
-- SELECT id AS "Object Id",
-- name AS "Object name",
-- xtype AS "Type"
-- FROM @DBname.dbo.sysobjects
-- WHERE id = @OBJname
--
-- FETCH NEXT FROM LockedObjects
-- INTO @DBname, @OBJname
--
-- END
-- CLOSE LockedObjects
-- DEALLOCATE LockedObjects