objShell = Новый COMОбъект("WScript.Shell");
   objScriptExec = objShell.Exec("cmd.exe /q /k echo off");
   objScriptExec.StdIn.WriteLine("chcp 1252>nul");
   objScriptExec.StdIn.WriteLine("ping.exe -n 1 " + IP_Адрес);
   objScriptExec.StdIn.WriteLine("exit");
   strPingResults = НРег(objScriptExec.StdOut.ReadAll());

   objShell = Новый COMОбъект("WScript.Shell");
   objScriptExec = objShell.Exec("ping.exe -n 1 " + IP_Адрес);
   strPingResults = НРег(objScriptExec.StdOut.ReadAll());

// Получить имя компьютера торгового оборудования при терминальном подключении
// http://expert.chistov.pro/public/392980/
Функция ПолучитьИмяКомпьютераТО() Экспорт

   WSS = Новый COMОбъект("WScript.Shell");
   WSSE = WSS.Environment("Process");

   ИмяКомпьютера = СокрЛП(WSSE.Item("ClientName"));
   Возврат ИмяКомпьютера;
КонецФункции // ПолучитьИмяКомпьютераТО()

   Пользователь = ПараметрыСеанса.Пользователь;
   ИмяПользователя = ИмяПользователя();
   ПолноеИмяПользователя = ПолноеИмяПользователя();
   
   // Переопределим текущий компьютер (в клиентской сессии пользователя он может
   // отличным от того что был определен в УстановкаПараметровСеанса)
   Состояние("Обновляем информацию о компьютере ...");
   Имя = мвДоработки.ПолучитьИмяКомпьютераТО();   //+МВ 10.10.2017
   Комп = Справочники.Компьютеры.НайтиПоНаименованию(Имя,Истина);
   Если Комп.Пустая() Тогда
      Комп = Справочники.Компьютеры.СоздатьЭлемент();
      Комп.УстановитьНовыйКод("");
      Комп.Наименование = Имя;
      Комп.Записать();
   КонецЕсли;
   ПараметрыСеанса.Компьютер = Комп.Ссылка; // Вот теперь тут правильное значение для клиентской сессии

// Возвращает Истина, если пингуется IP-адрес
// http://www.forum.mista.ru/topic.php?id=435364
Функция PingIP_Адреса(IP_Адрес = "", ТекстСообщения = "") Экспорт

   Если ПустаяСтрока(IP_Адрес) Тогда
      Возврат Ложь;
   ИначеЕсли IP_Адрес = НРег(СокрЛП(ИмяКомпьютера())) Тогда
      Возврат Истина;
   КонецЕсли;
   objShell = Новый COMОбъект("WScript.Shell");
   objScriptExec = objShell.Exec("ping.exe -n 1 " + IP_Адрес);
   strPingResults = НРег(objScriptExec.StdOut.ReadAll());
   Результат = Найти(strPingResults, "ttl=") > 0;
   ТекстСообщения = ?(Результат, ТекстСообщения, ?(СтрЧислоВхождений(IP_Адрес, ".") >= 3, "IP-адрес", "Компьютер") + ": '" + ВРег(IP_Адрес) + "' - недоступен!");
   IP_Адрес = ?(СтрЧислоВхождений(IP_Адрес, ".") >= 3, IP_Адрес, ?(Найти(strPingResults, "[") = 0, "", Сред(strPingResults, Найти(strPingResults, "[") + 1, Найти(strPingResults, "]") - Найти(strPingResults, "[") - 1)));
   Возврат Результат;

КонецФункции // PingIP_Адреса()

// Возвращает Истина, если порт ФР доступен, или занят самим ФР
// Драйвер ККМ. Руководство программиста C:\Program Files (x86)\ATOL\Drivers8\Doc\Drivers8_FprnM_PM.pdf
Функция ПроверкаСвязиФР(IP_Адрес = "", ТекстСообщения = "", ПортЗанят = Истина) Экспорт

   Если ПустаяСтрока(IP_Адрес) Тогда
      ТекстСообщения = "Не указан IP-адрес ФР";
      Возврат Ложь;
   КонецЕсли;
   
   Попытка
      ФР = Новый("AddIn.FprnM45");
   Исключение
      ФР = ЗагрузитьВнешнююFPrnM1C(ТекстСообщения);
   КонецПопытки;
   Если СтрЧислоВхождений(IP_Адрес, ".") < 3
   И Не ДоступностьIP_Адреса(IP_Адрес, ТекстСообщения) Тогда
      Возврат Ложь;
   КонецЕсли;
   Если ФР = Неопределено Тогда
      Возврат Ложь;
   КонецЕсли;
   ФР.АдресХоста = IP_Адрес + ":6220";
   ФР.DeviceEnabled = 1;   // занимаем порт
   Результат = ФР.ResultCode;
   Если Результат <> 0 И Не(ПортЗанят И Найти(ФР.ResultDescription, "Порт занят") > 0) Тогда
      ТекстСообщения = "Ошибка проверки связи с ФР: " + ФР.ResultDescription;
      Возврат Ложь;
   КонецЕсли;
   ФР.DeviceEnabled = 0;   // освобождаем порт
   Возврат Истина;

КонецФункции // ПроверкаСвязиФР()

// Загрузка внешней компоненты FPrnM1C.dll
// драйвера ФР АТОЛ
Функция ЗагрузитьВнешнююFPrnM1C(ТекстСообщения = "")
   Попытка
      ЗагрузитьВнешнююКомпоненту("c:\Program Files (x86)\ATOL\Drivers8\Bin\FprnM1C.dll");
      Попытка
         ФР = Новый("AddIn.FprnM45");   // Создание объекта (FPrnM8 - не работает!?)
      Исключение
         ТекстСообщения = "Объект AddIn.FprnM45 не найден!";
         Возврат Неопределено;
      КонецПопытки;
   Исключение
      ТекстСообщения = "Внешняя компонента драйвера FPrnM1C.dll не найдена";
      Возврат Неопределено;
   КонецПопытки;
   Возврат ФР;
КонецФункции

// Не то что включено, а даже еще и зарезервировано под текущую сессию - просто отлично!
    Возврат НомОшибки;// Оборудование уже и так включено, возвращаем ОК (НомОшибки=0) вот и все.