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

buketoff 91 1 1 9

узнать 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.Добавить();
			Стр.Адрес = ПодСтрока;
			//Сообщить(ПодСтрока);
		КонецЦикла;
	КонецЦикла;
	
КонецПроцедуры
Обновлятор-1С: групповое (пакетное) обновление и обслуживание всех баз за один раз

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

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

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

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

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

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

Модератору