илУчетнаяЗаписьТелефонии = 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="+АйПиАдресТелефона+"®Enable="+РегаАйПиТелефона+""; Соединение = Новый HTTPСоединение(СерверДляЗапроса); Запрос = Новый HTTPЗапрос(ТекстДляЗапроса); Результат = Соединение.Получить(Запрос); Исключение КонецПопытки; КонецЕсли;