1С 8.3 Получить IP адрес
Данные > Примеры кода 1С > 1С 8.3 Приложение, система, интерфейс
Перейти в раздел примеры кода 1С 8.3:
Пример №1: программно получить локальный IP адрес в 1С 8.3:
&НаКлиенте
Процедура ПолучитьIP_1()
COMОбъектRS= Новый COMОбъект("rcbdyctl.setting");
IPадрес=COMОбъектRS.GetIpAddress;
Сообщить("IP адрес устройства = "+ IPадрес);
КонецПроцедуры
Процедура ПолучитьIP_1()
COMОбъектRS= Новый COMОбъект("rcbdyctl.setting");
IPадрес=COMОбъектRS.GetIpAddress;
Сообщить("IP адрес устройства = "+ IPадрес);
КонецПроцедуры
Пример №2: программно получить локальный IP адрес в 1С 8.3:
&НаКлиенте
Процедура ПолучитьIP_2()
COMОбъектWS = Новый COMОбъект("WbemScripting.SWbemLocator");
COMОбъектWS_root = COMОбъектWS.ConnectServer(".","root\CIMV2");
ПулСтрок = COMОбъектWS_root.ExecQuery("SELECT IPAddress FROM
|Win32_NetworkAdapterConfiguration
|WHERE IPEnabled = TRUE");
Для Каждого СтрIP Из ПулСтрок Цикл
Для Каждого IPадрес Из СтрIP.IPAddress Цикл
Сообщить("IP адрес устройства = "+ IPадрес);
КонецЦикла;
КонецЦикла;
КонецПроцедуры
Процедура ПолучитьIP_2()
COMОбъектWS = Новый COMОбъект("WbemScripting.SWbemLocator");
COMОбъектWS_root = COMОбъектWS.ConnectServer(".","root\CIMV2");
ПулСтрок = COMОбъектWS_root.ExecQuery("SELECT IPAddress FROM
|Win32_NetworkAdapterConfiguration
|WHERE IPEnabled = TRUE");
Для Каждого СтрIP Из ПулСтрок Цикл
Для Каждого IPадрес Из СтрIP.IPAddress Цикл
Сообщить("IP адрес устройства = "+ IPадрес);
КонецЦикла;
КонецЦикла;
КонецПроцедуры
Пример №3: программно получить локальный IP адрес в 1С 8.3:
&НаКлиенте
Процедура ПолучитьIP_3()
COMОбъектWin = ПолучитьCOMОбъект("winmgmts:\\.\root\CIMV2");
ПулСтрок = COMОбъектWin.ExecQuery("SELECT * FROM
|Win32_NetworkAdapterConfiguration
|WHERE IPEnabled = TRUE");
Для Каждого СтрIP Из ПулСтрок Цикл
Для Каждого IPадрес Из СтрIP.IPAddress Цикл
Сообщить("IP адрес устройства = "+ IPадрес);
КонецЦикла;
КонецЦикла;
Процедура ПолучитьIP_3()
// Аналогичен примеру №2 (разница лишь в подключении)
COMОбъектWin = ПолучитьCOMОбъект("winmgmts:\\.\root\CIMV2");
ПулСтрок = COMОбъектWin.ExecQuery("SELECT * FROM
|Win32_NetworkAdapterConfiguration
|WHERE IPEnabled = TRUE");
Для Каждого СтрIP Из ПулСтрок Цикл
Для Каждого IPадрес Из СтрIP.IPAddress Цикл
Сообщить("IP адрес устройства = "+ IPадрес);
КонецЦикла;
КонецЦикла;
КонецПроцедуры
1
отзыв
Дмитрий Шаура
28 окт 2022
1. rcbdyctl.dll - это библиотека из windows xp. В Windows 7 и старше её нет. Поэтому описанный метод не подходит.
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник