Сделал шару таким образом:
&НаКлиенте
Процедура РасшаритьФайл(Команда)
Соединение = новый HTTPСоединение(АдресСервера, 443, ИмяПользователя, Пароль,,,Новый ЗащищенноеСоединениеOpenSSL);
ФайлЗапроса = ПолучитьИмяВременногоФайла();
ТекстовыйФайл = Новый ТекстовыйДокумент;
Текст = "&path="+ПутьКФайлу; //путь и имя файла в некстклауде
Текст = Текст + "&shareType=3"; //0 = user; 1 = group; 3 = public link; 4 = email; 6 = federated cloud share; 7 = circle; 10 = Talk conversation
Текст = Текст + "&permissions=1"; //1 = read; 2 = update; 4 = create; 8 = delete; 16 = share; 31 = all (default: 31, for public shares: 1)
ДатаИстечения = ДобавитьМесяц(НачалоДня(ТекущаяДата()),6); //шара на 6 месяцев
Текст = Текст + "&expireDate="+Формат(ДатаИстечения,"ДФ=yyyy-MM-dd");
ТекстовыйФайл.УстановитьТекст(Текст);
ТекстовыйФайл.Записать(ФайлЗапроса, КодировкаТекста.UTF8);
ФайлРезультата = ПолучитьИмяВременногоФайла();
ЗаголовокHTTP = Новый Соответствие();
ЗаголовокHTTP.Вставить("Content-Type", "application/x-www-form-urlencoded");
ЗаголовокHTTP.Вставить("OCS-APIRequest","true");
Ответ = Соединение.ОтправитьДляОбработки(ФайлЗапроса, "ocs/v1.php/apps/files_sharing/api/v1/shares", ФайлРезультата, ЗаголовокHTTP);
Сообщить(Ответ.КодСостояния);
ОтветТекст = Новый ТекстовыйДокумент();
ОтветТекст.Прочитать(ФайлРезультата, КодировкаТекста.UTF8);
ТекстОтвета = ОтветТекст.ПолучитьТекст();
Сообщить(ТекстОтвета);
УдалитьФайлы(ФайлЗапроса);
//получение ссылки
Парсер = Новый ЧтениеXML;
Парсер.ОткрытьФайл(ФайлРезультата);
Построитель = Новый ПостроительDOM;
Документ = Построитель.Прочитать(Парсер);
Статус = "";
Для Каждого metaData Из Документ.ЭлементДокумента.ДочерниеУзлы Цикл
Если metaData.ИмяУзла = "meta" тогда
Для Каждого Элемент из metaData.ДочерниеУзлы Цикл
Если Элемент.ИмяУзла = "status" тогда
Статус = Элемент.ТекстовоеСодержимое;
КонецЕсли;
КонецЦикла;
ИначеЕсли metaData.ИмяУзла = "data" тогда
Для Каждого Элемент из metaData.ДочерниеУзлы Цикл
Если Элемент.ИмяУзла = "url" тогда
ВебСсылка = Элемент.ТекстовоеСодержимое;
КонецЕсли;
КонецЦикла;
КонецЕслИ;
КонецЦикла;
Парсер.Закрыть();
Сообщить("Статус:"+Статус);
Сообщить(ВебСсылка);
УдалитьФайлы(ФайлРезультата);
КонецПроцедуры
Показать