VBS: Нужна помощь за вознаграждение - Метод POST (REST)

Домовой, приветствую. А вам именно VBS реализация нужна ? На JS это всё куда проще и удобнее реализуется.

Думаю будет непросто. Из описания в документации я вижу, что придётся работать с JSON, добавляя или убавляя критерии поиска и разбирать ответ. На VBS это крайне неудобно, ПМСМ. Мне кажется, что тогда уж проще написать WSC и вызывать его из VBS управляя методами и свойствами.

Вот пример на JS:

var url = "http://00.00.000.000:19000/api/mdm-api/sync/find_extended",
	token = "MINqsergkfjdnczzYQg94vEd6Mjqj5ldnz6rmgl0kdasBH0DsbflIDKsQ_0fZ-s9IAHBO92AszgTIqItY",
	request = {
	   "query": {
		  "logic": {
			 "operator": "AND",
			 "conditions": [
				{
				   "binary": {
					  "field": "first_name",
					  "operator": "=",
					  "value": "ЛЕОНИД"
				   }
				},
				{
				   "binary": {
					  "field": "middle_name",
					  "operator": "=",
					  "value": "ЛЕОНИДОВИЧ"
				   }
				},
				{
				   "binary": {
					  "field": "last_name",
					  "operator": "=",
					  "value": "ЛЕОНИДОВ"
				   }
				},
				{
				   "binary": {
					  "field": "birth_date",
					  "operator": "=",
					  "value": "1973-10-05"
				   }
				},
				{
				   "binary": {
					  "field": "documents.doc_passport_rf.series",
					  "operator": "=",
					  "value": "1234"
				   }
				},
				{
				   "binary": {
					  "field": "documents.doc_passport_rf.value",
					  "operator": "=",
					  "value": "654321"
				   }
				}
			 ]
		  }
	   },
	   "protocol": "kri"
	}

// Creating JSON object
var JSON = (function(){
	var document = new ActiveXObject("htmlfile");
	document.write('<meta http-equiv="X-UA-Compatible" content="IE=Edge">');
	document.parentWindow.onerror = function(){
		throw new Error(arguments[4])
	}
	return document.Script.JSON
})()

// Prepairing request 
var whr = new ActiveXObject('WinHttp.WinHttpRequest.5.1');
whr.open("POST",url,false);
whr.setRequestHeader("X-APPLICATION-TOKEN",token);
whr.setRequestHeader("Cache-Control", "no-cache");
whr.setRequestHeader("Content-Type","application/json");

// Serializing data and sending request 
whr.send(JSON.stringify(request,null,'\t'))

// Checking response 
if(whr.status != '200'){
	WSH.StdErr.WriteLine("Request Failed ! " + whr.status + ' ' + whr.statusText);
	WSH.Quit()
}

// Parsing response
try {
	var response = JSON.parse(whr.responseText)
} catch(e){
	WSH.StdErr.WriteLine("Failed to parse JSON response ! " + e.description);
	WSH.Quit()
}

// Checking error code
if(response.errorCode != 0){
	WSH.StdErr.WriteLine('Search failed ! Error code: "' + response.errorCode + '"; Error Message: "' + response.errorMessage + '"')
	WSH.Quit();
}

// Checking record count	
if(response.foundRecords <= 0){
	WSH.StdErr.WriteLine('No records found !');
	WSH.Quit();
}

// Parsing response data
var info, document, prefix;
for(var info in response.data){
	info = response.data[info]
	// Showing LFM
	WSH.StdOut.WriteLine([
		'Фамилия:\t' + info.last_name,
		'Имя:\t\t' + info.first_name,
		'Отчество:\t' + info.middle_name,
		'Дата рождения:\t' + info.birth_date.split(' ')[0]
	].join('\r\n'));
	// Showing documents
	for(var item in info.documents){
		document = info.documents[item];
		switch(item){
		case 'doc_passport_rf':
			for(var i in document){
				WSH.StdOut.WriteLine('Паспорт РФ:\t' + document[i].series + " " + document[i].value)
			}
			break
		case 'doc_snils':
			for(var i in document){
				WSH.StdOut.WriteLine('СНИЛС:\t\t' + document[i].value)
			}
			break
		}
	}
	WSH.StdOut.WriteLine(Array(50).join('-'))
}

Результат вывода в консоль при разборе тестового ответа:

В аттаче пример для запуска

Домовой, ответил на почту. ) Предлагаю обсудить подробнее цель и её реализацию.

svoboden, доброго дня. Постараюсь пояснить свою позицию.

1) Если взять сериализацию JSON на примере Вашего кода:

sR = "{""requests"":[{""insertText"":{""text"":""" & key & "\n"",""location"":{""index"":1}}}]}"

не делаю так по причинам:
а) В случае больших структур, хранить такой код в строковых переменных VBScript ПМСМ неудобно. Визуально режет глаз. Куча задвоенных кавычек для экранировки и если вытягивать выражение в линию, то получается нечитабельная строка, уползающая за экран. Много мест где можно ошибиться. Если вставлять переводы строк, то появляется куча амперсандов, нижних подчёркиваний. И хоть от части кавычек можно избавиться (имена параметров можно не брать в кавычки, если они не содержат пробелов), но всё равно ПМСМ неудобно:

Dim key: key = "test"
MsgBox "{" & _
			"requests: [" & _
				"{" & _
					"insertText: {" & _
						"text: """ & key & "\n""," & _
						"location: {" & _
							"index: 1" & _
						"}" & _
					"}" & _
				"}" & _
			"]" & _
		"}"

б) Даже если "закрыть глаза на эстетику и красоту", то нельзя забывать про экранировку данных "инжектируемых" параметров.
У Вас в коде она не используется, так как подразумевается, что значение переменной key не принимает в себя символов подлежащих экранировке. В случае коллеги Домового, данные попадающие в запрос, вполне могут содержать такие. Тогда, если использовать Ваш код, то придётся вставлять обрамляющую функцию экранировки вокруг параметров, добавляемых в текст строки. К тому же у Домового запрос может содержать динамическое количество вложенных структур в блоке "conditions", а значит придётся делать вкрапления не только параметров, но и обрамляющих блоков:

            {
               "binary": {
                  "field": "first_name",
                  "operator": "=",
                  "value": "ЛЕОНИД"
               }
            }

В общем ПМСМ, опять неудобно... Мне кажется проще когда можно не задумываться о сборке строки вручную, а иметь функции сериализации и десериализации, надёжно отрабатывающие входные данные и выдающие результат готовый к использованию.

2) Что касается десериализации через execScript() / eval() - Вы наверняка не хуже меня знакомы с понятием "небезопасная JSON сериализация/десериализация". Но если вдруг нет - вот несколько ссылок для примера: ссылка 1, ссылка 2, ссылка 3

По этой причине не рискую использовать такой код:

window.execScript "var json = " & strJson, "JScript"

Доверяю библиотеке json2.js либо методам встроенного объекта JSON, получаемого из htmlfile. Он появляется в объекте window как свойство, начиная с IE9. (пример использования в моём коде выше.). Но вторым вариантом пользуюсь реже, так как он менее универсален. Не у всех же до сих пор установлен IE9 или тем более какой-то выше. К тому же он "молча глотает ошибки" при разборе невалидного JSON и приходится отлавливать их через window.onerror, что тоже не очень удобно.

А самый ад начинается когда доходит до разбора динамического ответа JSON. Очень неудобно в VBS анализировать - есть у объекта свойство или нет, перебирать элементы массива или свойства объекта, проверять внутренний тип данных. В JS для этого есть вся широта функционала, а для VBS это инородное тело.

Вот по всем этим причинам я и написал

Пока что мне видится, что если есть крайняя необходимость реализовать всё на чистом VBScript, то можно заюзать aspJSON. Либо можно оформить весь механизм работы с сервисом в виде WSC, в котором будет реализован код на JS, а управление и получение данных организовать через экспортируемые методы и свойства в подходящем для VBSсript варианте.

P.S svoboden, обязательно хочу уточнить - совершенно ничего не имею против Вашего подхода. Да, можно делать и так, просто лично мне так не нравится. Поэтому я не написал, что "нельзя" / "карается законом" / "побойтесь бога !", а написал лишь - "на JS удобнее". А "неудобно" / "удобно" это часто субъективное понятие. Как говорится - на вкус и цвет...

alexii, благодарю за поддержку Делаю вывод, что я не одинок в своём видении ситуации.

На автохотки есть библиотека для JSON сериализации/десериализации, не используя js.
Наверняка на VBS тоже имеется, ну или при желании можно перевести.
https://github.com/cocobelgica/AutoHotkey-JSON
Правда при большом количестве данных работает медленнее.

На автоите хороший быстрый парсер перенесли.
https://www.autoitscript.com/forum/topi … n-udf-jsmn
Наверное это был бы оптимальный вариант для языков где парсинг json отсутствует.

Я имел в виду перенести JSMN на vbs.
https://zserge.com/jsmn/

Я не знаю, как быстро работает aspJSON.
Но тут он самый быстрый 482 MB/s:
https://lionet.livejournal.com/118853.html

Я имел в виду создать машинный код и его уже вызывать из VBS.
Точнее и создавать не надо, а достаточно скопировать из автоит.

Так вроде же YMP уже создал DynamicWrapperX.

Xameleon, так не я автор вопроса.

Нет. Компилируем из С в машинный код, после чего получаем строку, которую загружаем через DynamicWrapperX.
На автохотки и на автоите можно загружать напрямую.

Пардоньте. При цитировании не тот никнейм копипастнул. )

Спасибо за ссылку.
В принципе тогда можно еще проще - пропускать через ренулярку json перед тем как запускать eval через htmlfile.

Malcev, ага, а потом удалить document и window ? )

Ведь можно...

var e = document.createElement('object')
e.classid = '....'
document.appendChild(e);

а ещё можно

window.navigate(...)

И нельзя сбрасывать со счетов встроенный XMLHttpRequest.

И даже при вызове delete, встроенные объекты остаются видимыми в функции закрытого скоупа, если не ошибаюсь.

В общем не всё так просто, как хотелось бы.

В принципе, наверно можно все их попрятать через создание функции

var f = new function('document','window','navigator',code)
f();

Но всё равно как-то неаккуратненько выходит.

teadrinker, приветствую ! Да, именно так. Ну если только внутри метода parse объекта JSON нет критических ошибок, которые можно эксплуатировать различными эксплойтами. Проще говоря - шанс "поймать беду" гораздо ниже.