Połączenie z API prom.ua z 1C 7.7

Potrzebny jest skrypt (tak, ponieważ wewnętrzne narzędzia 1C nie pozwalają tego zrobić), który będzie dostarczał plik importu przez API na stronę Prom.ua. Mam skrypt, który napisałem, ale nie działa, może znajdziesz błąd:

Funkcja ImportTovarovPromUaPrzezSkrypt(ТокенАвторизації, ШляхДоФайлуXLSX, НалаштуванняІмпорту)

    Dim WshShell, Команда, РезультатВиконання;

    // Ścieżka do pliku VBScript

    // Upewnij się, że import_prom.vbs znajduje się w dostępnej lokalizacji,

    // lub wskaż pełną ścieżkę do niego. 

    Jeśli ФС.СуществуетФайл(КаталогИБ()+"import_prom.vbs") = 1 wtedy

        ШляхДоСкрипта = КаталогИБ()+"import_prom.vbs"; // Zmień na rzeczywistą ścieżkę!

    Иначе  

        Сообщить("Nie znaleziono skryptu " + КаталогИБ()+"import_prom.vbs");

        Возврат 0;

    КонецЕсли;

    // Escapujemy cudzysłowy w JSON dla wiersza polecenia

    // (należy zamienić " na \" lub """")

    НалаштуванняЕкрановані = СтрЗаменить(НалаштуванняІмпорту, """", """""");

    // Tworzymy polecenie do uruchomienia VBScript

    // Używamy cscript.exe do wyświetlenia w konsoli

    Команда = "cscript.exe //NoLogo """ + ШляхДоСкрипта + """ """ + ТокенАвторизації + """ """ + ШляхДоФайлуXLSX + """ """ + НалаштуванняЕкрановані + """";

    Try

        WshShell = CreateObject("WScript.Shell");

        // Uruchamiamy skrypt i czekamy na jego zakończenie

        // 0 - ukryte okno, True - oczekiwanie na zakończenie

        РезультатВиконання = WshShell.Run(Команда, 0, 1); 

        // Jeśli skrypt wyświetla wynik w WScript.Echo,

        // to trzeba go przekierować do pliku lub stdout, aby 1C mógł go odczytać.

        // Zazwyczaj, aby uzyskać wyjście, trzeba przekierować je do tymczasowego pliku

        // lub uruchomić skrypt z PowerShell, który może przechwytywać stdout.

        // Prosty wariant: nie pobieramy wyjścia, tylko sprawdzamy kod zakończenia.

        // Jeśli chcesz otrzymywać odpowiedź serwera, VBScript musi zapisać ją do pliku.

        Jeśli РезультатВиконання = 0 wtedy // Zazwyczaj 0 oznacza sukces

            Возврат "Skrypt importu pomyślnie zakończony (kod: " + РезультатВиконання + ").";

        Иначе

            Возврат "Skrypt importu zakończył się błędem (kod: " + РезультатВиконання + "). Sprawdź logi skryptu.";

        КонецЕсли;

    Исключение

        Сообщить("Błąd uruchomienia zewnętrznego skryptu: " + ОписаниеОшибки());

        Возврат "";

    КонецПопытки;

КонецФункции

Процедура ПрикладИмпорта() Экспорт  

    Dim Токен, ШляхДоФайлу, Налаштування, Результат;

    ШляхДоФайлу = "D:\Obmen\Import_Prom.xlsx";

    Токен = СокрЛП(Константа.ТокенПром); 

    Налаштування = "{ ""force_update"": false, ""only_available"": false, ""mark_missing_product_as"": ""none"", ""updated_fields"": [ ""price"", ""presence"", ""name"", ""sku"", ""images_urls"", ""quantity_in_stock"", ""description"", ""group"", ""keywords"", ""attributes"", ""discount"", ""labels"", ""gtin"", ""mpn"", ""translations"" ] }";

    Результат = ImportTovarovPromUaPrzezSkrypt(Токен, ШляхДоФайлу, Налаштування);

    Сообщить(Результат);

КонецПроцедуры