илУчетнаяЗаписьТелефонии = 0;
	Если ПараметрыПриложения["СтандартныеПодсистемы.ПараметрыКлиента"].Свойство("илУчетнаяЗаписьТелефонии") Тогда
	    илУчетнаяЗаписьТелефонии = ПараметрыПриложения["СтандартныеПодсистемы.ПараметрыКлиента"].илУчетнаяЗаписьТелефонии;
	КонецЕсли;
	
	Если НЕ ЗначениеЗаполнено(илУчетнаяЗаписьТелефонии) Тогда
		илУчетнаяЗаписьТелефонии = 0;
	КонецЕсли;
	
	ИмяКомпьютера=ИмяКомпьютера();
	
	Если ИмяКомпьютера = "comp1" Тогда
		АйПиАдресТелефона="192.168.1.1";
	ИначеЕсли ИмяКомпьютера = "comp2" Тогда
		АйПиАдресТелефона="192.168.1.2";
	ИначеЕсли ИмяКомпьютера = "comp3" Тогда
		АйПиАдресТелефона="192.168.1.3";
	ИначеЕсли ИмяКомпьютера = "comp4" Тогда
		АйПиАдресТелефона="192.168.1.4";
	Иначе
		АйПиАдресТелефона=0;	
	КонецЕсли;
	
	Если илУчетнаяЗаписьТелефонии <> 0 И АйПиАдресТелефона <> 0 Тогда
		Попытка
			ИмяДомена="corp.local";
			ws = новый COMОбъект("WScript.Network");
						
			АДОКоннектор = Новый COMОбъект("ADODB.Connection");
			АДОКоннектор.ConnectionString = "Provider=""ADsDSOObject""";
			АДОКоннектор.Open();
			
			ТекстЗапроса = "
			|SELECT AdsPath
			|FROM 'LDAP://" + ИмяДомена + "'
			|WHERE 
			|    objectCategory = 'user'
			|    and objectClass = 'person' 
			|    and SAMAccountName = '" + илУчетнаяЗаписьТелефонии + "' 
			|ORDER BY sn
			|";
			
			ВыборкаАДО = АДОКоннектор.Execute(ТекстЗапроса);
			
			Если НЕ ВыборкаАДО.EOF Тогда
				ПутьОбъекта = ВыборкаАДО.Fields("AdsPath").Value;
				ОбъектАД = ПолучитьCOMОбъект(ПутьОбъекта);
				НомерТелефона=ОбъектАД.telephoneNumber;
				Почта=ОбъектАД.mail;
			КонецЕсли;
			
			СерверДляЗапроса = "push.corp.local";
			ТекстДляЗапроса = "phoneNumberChanger.php?TelephoneNumber="+НомерТелефона+"&email="+Почта+"&IpTelephone="+АйПиАдресТелефона+"&regEnable="+РегаАйПиТелефона+"";
			
			Соединение = Новый HTTPСоединение(СерверДляЗапроса);     
			Запрос = Новый HTTPЗапрос(ТекстДляЗапроса);
			
			Результат = Соединение.Получить(Запрос);
		Исключение	
		КонецПопытки;
	КонецЕсли;