Подключение сканера

Есть самописная обработка, нужно подключить сканер. Пытаюсь сделать при открытии формы, но иногда работает, а иногда нет
вот эта строчка Если Драйвер.Занять(1) = 0 Тогда
ругается то, что метод объекта не обнаружен.
Подскажите, что не так делаю?
&НаКлиенте
Процедура ПриОткрытии(Отказ)

ПодключениеСканера = Истина;
        Попытка
            ПрогИД="AddIn.Scanner";
            ПодключитьВнешнююКомпоненту(ПрогИД);
            Драйвер = Новый (ПрогИД);
        Исключение
            ПодключениеСканера = Ложь;
        КонецПопытки;

        Если ПодключениеСканера Тогда
            Попытка
                ВерсияИзДрайвера = Драйвер.ПолучитьНомерВерсии();
            Исключение
                ПодключениеСканера = Ложь;
            КонецПопытки;
        КонецЕсли;

        Если ПодключениеСканера Тогда
            Попытка
                Если Драйвер.Подсоединить("Сканер штрихкода") <> 0 Тогда
                    //Сообщить ("Ошибка (1) при подключении устройства!");
                КонецЕсли;

            //при подключении USB-сканера с эмуляцией COM-порта указывать порт 5 в свойствах виртуального COM-порта в диспетчере устройств

            //сканер настроить - префикса нет, суффикс - CR

                Драйвер.БитДанных  = БитДанных;//8;
                Драйвер.Порт       = Порт;//1;
                Драйвер.Скорость   = Скорость;//9600;
                Драйвер.СтопБит    = СтопБит;//1;
                Драйвер.СтопСимвол = Суффикс;//13; //CR - carriage return
                Драйвер.Префикс    = Префикс;
                Драйвер.ИмяСобытия = "ПолученШтрихкод";

                Если Драйвер.Занять(1) = 0 Тогда
                    Драйвер.УстройствоВключено = 1;
                    Драйвер.ПосылкаДанных      = 1;
                    Драйвер.ОчиститьВход();
                    Драйвер.ОчиститьВыход();