Код

use dbname
select
  rtrim(procs.hostname) Хост,
  object_name(lock.rsc_objid) Объект,
  db_name(lock.rsc_dbid) БД,
  req_mode Режим,
  count(*) count
from master..syslockinfo lock (nolock)
join master..sysprocesses procs (nolock) on procs.spid = lock.req_spid
where
  lock.req_ownertype=1 and
  lock.rsc_dbid > 2
group by
  procs.hostname,
  lock.rsc_objid,lock.rsc_dbid,
  req_mode
order by Режим desc, Хост, Объект 

Код

Процедура Сформировать()
//Если Стоп=0 Тогда
Запрос=СоздатьОбъект("ODBCRecordset");
Запрос.РежимRPC(1);
ИмяБазы="sql1c";
Запрос.УстановитьТекстовыйПараметр("DBName", ИмяБазы);
//Запрос.Отладка(1);
ТекстЗапроса = "
|SELECT
//| convert (smallint, req_spid) As spid,
    | us.user_1c as usr,
//| rsc_dbid As dbid,
| rsc_objid As ObjId,
| so.Name As ObjectName,
| rsc_indid As IndId,
| substring (v.name, 1, 4) As Type,
| substring (rsc_text, 1, 16) as Resource,
| substring (u.name, 1, 8) As Mode,
| substring (x.name, 1, 5) As Status
|FROM master.dbo.syslockinfo sli (Nolock)
|JOIN master.dbo.spt_values v (Nolock)
| ON sli.rsc_type = v.number
| AND v.type = 'LR'
|JOIN master.dbo.spt_values x (Nolock)
| ON sli.req_status = x.number
| AND x.type = 'LS'
|JOIN master.dbo.spt_values u (Nolock)
| ON sli.req_mode + 1 = u.number
| AND u.type = 'L'
|JOIN master.dbo.sysdatabases sd (Nolock)
| ON  sli.rsc_dbid = sd.dbid
|JOIN "+ ИмяБазы +".dbo.sysobjects so
| ON sli.rsc_objid = so.id
|JOIN Adm.dbo.users us (Nolock)
| ON sli.req_spid = us.PID
|WHERE sd.name = :DBName
|";
ТЗ=Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
ТЗ.ВыбратьСтроку();
//ТЗ.Выгрузить(фТЗ);
//КонецЕсли;
КонецПроцедуры
 

Код

Процедура глДобавитьИнфуОПользователе() Экспорт
	Запрос=СоздатьОбъект("ODBCRecordSet");
	ТЗ_пид = "
	|Select convert(varchar(10), @@SPID) PID
	|";
	Запрос.Открыть(ТЗ_пид);
	Запрос.ВНачало();
	ПИД = Сокрлп(Запрос.ПолучитьЗначение(1));
	//-----------Сначала удаляем------------------------------------    
	ТЗ = "Delete from [Adm]..[Users] Where ([Adm]..[Users].[User_1c]='"+Сокрлп(глПользователь.Код)+"') or ([Adm]..[Users].PID = "+ПИД+")";
	Запрос.Выполнить(ТЗ);
	//-----------------А теперь добавляем-------------------------------------
	т(ДатаЧисло(ТекущаяДата()),"Ч(0)2");
	ДатаТек = ДатаТек+" "+ТекущееВремя()+".000";
	ТЗ = "insert into [Adm]..[Users] values("+ПИД+", '"+Сокрлп(глПользователь.Код)+"', Convert(datetime, '"+Сокрлп(ДатаТек)+"', 102))";
	Если Запрос.Выполнить(ТЗ)=0 Тогда
		Сообщить(Запрос.ПолучитьОписаниеОшибки());
	Конецесли;											  
	//------------------------------------------------------------------
КонецПроцедуры