Определить количество зарегистрированных в системе COM портов

[Evgeny965]

Возникла необходимость определить количество COM портов зарегистрированных в системе с целью их последующего опроса.
Поиск по инету ничего не дал - может, кто знает, как из 1С можно получить конфигурацию системы (ПК) и вытащить от туда количество и названия COM портов?

[MuI_I_Ika]

может через wsh

[Evgeny965]

Спасибо, посмотрел - с помощью скриптов эту задачку видимо можно решить, но для меня это пока сложно.
Может есть штатные средства определения конфигурации ПК, ведь порты как-то определяются для сканеров штрихкода?

[MuI_I_Ika]

Насколько я помню для сканера нужно указать номер com порта.

Штатных таких функций нет.

[MuI_I_Ika]

Если сложно, то поищите книжку Андрея Михайлова. Системное программирование в 1С. Там все очень просто для 1сников написано.

[Evgeny965]

Поискал, нашел, прочитал - есть все, что угодно (файлы, диски, видео и звуковые карты и т.д.), но про то, как проверить COM порты ни слова:fdbsdfbsd:

[MuI_I_Ika]

Ну наверное по аналогии с дисками и звуковыми картами. В одной книжке же не опишешь все возможные ситуации.

[Evgeny965]

Да, уже понял куда копать - есть класс Win32_SerialPort из которого можно получить все, что нужно.
Огромное спасибо за наводку.
Пошел писать обработку.

Добавлено: 02 сен 2015, 15:10

Задачка решена.
Может кому-то облегчит жизнь:
      
   Попытка
      Locator = Новый COMОбъект("WbemScripting.SWbemLocator");
   Исключение
      Сообщить(ОписаниеОшибки());
      Возврат;
   КонецПопытки;
   
         ServicesSet = Locator.ConnectServer(".");
   ObjectSet = ServicesSet.InstancesOf("Win32_SerialPort");
   Для каждого Item Из ObjectSet Цикл
       Сообщить("Порт: " + Item.Caption);
       Для каждого Свойство Из Item.Properties_ Цикл
      Сообщить(Свойство.Name + " = " + Свойство.Value);
       КонецЦикла;
   КонецЦикла;

Добавлено: 02 сен 2015, 15:13

Источник информации - книга  Андрея Михайлова "Системное программирование в 1С".