ip адрес локального компьютера

buketoff 35 7

узнать ip адрес локального компьютера

&НаКлиенте
Процедура УзнатьIP(Команда)
	
	COMОбъект1 = Новый COMОбъект("WbemScripting.SWbemLocator");
	COMОбъект2 = COMОбъект1.ConnectServer(".","root\CIMV2");
	
	Результат = COMОбъект2.ExecQuery("SELECT IPAddress FROM 
	|Win32_NetworkAdapterConfiguration 
	|WHERE IPEnabled = TRUE");
	
	Для каждого Строка Из Результат Цикл
		Для каждого ПодСтрока Из Строка.IPAddress Цикл 
			Стр = Объект.IPAddress.Добавить();
			Стр.Адрес = ПодСтрока;
			//Сообщить(ПодСтрока);
		КонецЦикла;
	КонецЦикла;
	
КонецПроцедуры
TurboConf - расширение Конфигуратора 1С

Похожие публикации

УстановитьИдентификаторыАдреса (БСП)

АдресПубликацииИнформационнойБазыВЛокальнойСети (БСП)

ПолучитьСертификатПоОтпечатку (БСП)

ПредставлениеЛокальнойДатыСоСмещением (БСП)

АдресЕАЭС (БСП)

Модератору