Каталог	= "h:\bases\tmp\";
Объект	= СоздатьОбъект("BinaryData");

МожноОткрыть	= Объект.ПодключитьсяКФайлу(Каталог + "1susers.dbf", 1, 1);

Если МожноОткрыть = 0 Тогда
	Сообщить("Монопольно");
Иначе
	Объект.Перейти(98, 0);
	Количество	= "";
	Объект.ПрочитатьСтроку(Количество, 4);
	Количество	= Число(Количество);
	Объект.Закрыть();
	МожноОткрытьЭксклюзивно	= Объект.ПодключитьсяКФайлу(Каталог + "1susers.dbf", 0, 0);
	Объект.Закрыть();
	
	Если (МожноОткрытьЭксклюзивно = 1) и (Количество <> 0) Тогда
		Сообщить("Потребуется переиндексация");
	ИначеЕсли (МожноОткрытьЭксклюзивно = 0) и (Количество <> 0) Тогда
		Сообщить("Работа в разделенном режиме");
	Иначе
		Сообщить("Никто не работает");
	КонецЕсли;
КонецЕсли;