настройка приоритетной аутентификации для остальных API с использованием vbscript - PullRequest
Новая
       9

настройка приоритетной аутентификации для остальных API с использованием vbscript

0 голосов
/ 29 августа 2018

Я использую приведенный ниже код для тестирования Rest API с использованием UFT (VBScript). 

url ="http://*********"
username = "test"
Pwd = "pwd"
inputfilepath  = "C:\TApps\Message.txt"
Set fso = createobject("Scripting.FileSystemObject")
Set fl = fso.OpenTextFile(inputfilepath)
strMsg = fl.readall
Set f1 = Nothing
fl.Close
Set fso = Nothing

Set restReq = CreateObject("Microsoft.XMLHTTP")
restReq.Open "POST", url, False,username,Pwd
restReq.setRequestHeader "Content-Type","application/json"
'restReq.SetRequestHeader "Authentication", "preemptive"
''restReq.setRequestHeader "PreemptiveAuthentiction",true
 restReq.setRequestHeader "Accept","application/json"
 restReq.Send strMsg
msgbox restReq.responsetext

Я получаю сообщение об ошибке как responseText как 

[{"error-code":"1","error_msg":"error when reading the key:null}]

Нет проблем со строкой json, так как вручную я получаю правильный ответ. Проведя некоторый анализ, я узнал, что для моего запроса «Preemptive Authentication» должно быть true. Попытка установки с использованием SetRequestHeader, но безуспешно.

...