Для получения IP используем возможности COM-объекта WbemScripting.
Итоговая функция для получения IP-адреса выглядит так:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Функция ПолучитьIPАдрес() КомпСтр = "."; НКО = Новый COMОбъект("WbemScripting.SWbemLocator"); objWMIService = НКО.ConnectServer(КомпСтр, "root\CIMV2"); СН = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration where ipenabled = true"); Для Каждого ТСК Из СН Цикл Для Каждого StrPrm Из ТСК.IPAddress Цикл Возврат StrPrm; КонецЦикла; КонецЦикла; КонецФункции; |
Функция получит и вернёт локальный айпи компьютера.
Представим, что у компьютера две сетевые карты. Одна — «смотрит» в интернет. Таким образом, мы получим только локальный адрес.