Получение внешнего IP адреса клиента и сервера за NAT
Иногда надо узнать внешний адрес, с которого 1С (клиент или сервер) ходит в интернет.
- Описание
- Подробнее
Описание
Для того, чтобы ограничить доступ к ресурсам используются "белые списки" адресов, но как узнать адрес 1С сервера, если Вы работаете в "облаке"?
Обработка заходит на сайт myexternalip.com с клиента и сервера 1С и рассказывает Вам их. 🙂
Весь код обработки ниже
Если лень писать — то можно скачать за СМ… 🙂
&НаСервереБезКонтекста
Процедура Команда1НаСервере()
Защ = Новый ЗащищенноеСоединениеOpenSSL();
Хттп = Новый HTTPСоединение("myexternalip.com", ,,,,, Защ);
хттпЗапрос = Новый HTTPЗапрос("/raw");
хттпОтвет = Хттп.Получить(хттпЗапрос);
Сообщить("Сервер: "+хттпОтвет.ПолучитьТелоКакСтроку());
КонецПроцедуры
&НаКлиенте
Процедура Команда1(Команда)
Защ = Новый ЗащищенноеСоединениеOpenSSL();
Хттп = Новый HTTPСоединение("myexternalip.com", ,,,,, Защ);
хттпЗапрос = Новый HTTPЗапрос("/raw");
хттпОтвет = Хттп.Получить(хттпЗапрос);
Сообщить("Клиент: "+хттпОтвет.ПолучитьТелоКакСтроку());
Команда1НаСервере();
КонецПроцедуры
