• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Web Service

  • Автор темы Gor
  • Дата начала
G

Gor

Всем доброго времени суток.
Работаю с 6.5 лотусом...
Вычитал вот данную вещь даже забыл где уже... помоему в жж у кого то из форума))

Здесь речь идёт про WebService.
Ну и последний способ подключения к WS... никаких проблем, если у вас... Windows, потому что используется технология COM. Создаете объект MSSOAP.SoapClient и работаете с WS как с обычным классом.

Мне данный способ полностью походит, но есть какие нибудь примеры как это сделать?? Или кто нибудь про данный способ может рассказать поподробнее??? понятно что главная моя задача состоит в подключении к WEB сервису
т.е. как создать объект mssopap и какие методы в данном классе есть итд итп...
 
G

Gor

И вообще хочется узнать возможен ли вызов Веб Сервиса в Domino 6.5, есть ли инструменты работы с ним в этой версии??? А то как я понял в 7-ке функционал под это всё дело есть, а в 6.5 я его не нашёл...

нашёл вроде бы примеры как вызывать WEB servicы

пытаюсь сделать следующее
Код:
Sub GetEmail(personname As String)
'Предоставить месторасположение WSDL-файла.
'Используется адрес localhost, если служба запущена в Domino Designer
'измените этот URL для указания месторасположения базы данных, содержащей web-службу 
sWSDL = "http://gmvaz.gmavtovaz.local:8000/sap/bc/srt/rfc/sap/ZRUMM_LN_MAT_CREATE?sap-client=100&wsdl=1.1"
'Создать новый объект MSSOAP 
Set Client =CreateObject("MSSOAP.SoapClient")
'Инициализировать подключение к WSDL-файлу и получить WSDL-структуру 
Call Client.mssoapinit (sWSDL)
'Вызвать метод или функцию, предоставляемую web-службой
'Вы получите ошибку, если вызовете несуществующую функцию или предоставите неправильный тип параметра
result = Client.ZrummLnMatCreate(personname)
'результаты вывода в окно сообщения
Messagebox result, MB_OK, "Get Email"
End Sub



это моя ссылка на WEB сервис

по ссылке сервис через браузер открывается
SOAP Toolkit 3.0 я установил

а вот при запуске кода выдаёт вот такую ошибку -

AUTOMATION OBJECT ERROR

причём ошибку выдаёт вот на этой строчке
Код:
result = Client.ZrummLnMatCreate(personname)

Почему не подскажите?
 
G

Gor

Код я немного переделал но не работает всё равно...
Это метод в который должен вызываться с 6-ю параметрами))
Данный метод должен возвращать в переменные s1,s2,s3 - True, если входящие параметры 111 222 333

Код:
'Предоставить месторасположение WSDL-файла.
'Используется адрес localhost, если служба запущена в Domino Designer
'измените этот URL для указания месторасположения базы данных, содержащей web-службу 
sWSDL = "http://gmvaz.gmavtovaz.local:8000/sap/bc/srt/rfc/sap/ZRUMM_LN_MAT_CREATE?sap-client=100&wsdl=1.1"
'Создать новый объект MSSOAP 
Set Client =CreateObject("MSSOAP.SoapClient")
'Инициализировать подключение к WSDL-файлу и получить WSDL-структуру 
Call Client.mssoapinit (sWSDL)
'Вызвать метод или функцию, предоставляемую web-службой
'Вы получите ошибку, если вызовете несуществующую функцию или предоставите неправильный тип параметра
Dim s1, s2, s3 As String	
Call Client.ZrummLnMatCreate("111","222","333",s1,s2,s3)
'результаты вывода в окно сообщения
Messagebox result, MB_OK, "Get Email"

Вот в принципе и всё... не работает всё равно - Error automation request...
Но у меня такое подозрение что не инициируется объект MSSoap...
Потому что в дебаггере после Set Client - у клиента просто появляется свойство объекта и всё...
 
G

Gor

подключился к WebServicу на Делфях=)))))
Значения записывает и возвращет тоже
Код:
begin
ZRUMM_LN_MAT_CREATE11 :=GetZRUMM_LN_MAT_CREATE(true,'http://gmvaz.gmavtovaz.local:8000/sap/bc/srt/rfc/sap/ZRUMM_LN_MAT_CREATE?sap-client=100&wsdl=1.1');
ZRUMM_LN_MAT_CREATE11.ZrummLnMatCreate(edit4.Text,edit5.Text,edit6.Text,s,s1,s2);
edit1.Text := s;
edit2.Text := s1;
edit3.Text := s2;
end;

Вроде бы всё идентично также как и в лотусе... а в Лотусе до сих пор не работает((((((((((((((((((((
 
S

Sandr

Может лотус занимает порт 8000? Попробуйте при включенном лотусе простучать порт...
 
N

noMugoP

Gor
Если ты нашел пещение этой проблемы, то пожалуйста напиши, так как я уже много дней немагу решить её. :)
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!