Connecting to the prom.ua API from 1C 7.7

Need a script (since internal tools of 1C do not work) that will deliver an import file via API to the Prom.ua website. There is a script I wrote, but it does not work, maybe you will find the error:

Function ImportProductsPromUaViaScript(AuthorizationToken, PathToXLSXFile, ImportSettings)

Dim WshShell, Command, ExecutionResult;

// Path to VBScript file

// Make sure that import_prom.vbs is located in an accessible place,

// or specify its full path.

If FSO.FileExists(DirectoryB() + "import_prom.vbs") = 1 Then

PathToScript = DirectoryB() + "import_prom.vbs"; // Change to the actual path!

Else

MsgBox("Script not found " + DirectoryB() + "import_prom.vbs");

Return 0;

EndIf;

// Escape quotes in JSON string for command line

// (replace " with \\" or "")

EscapedSettings = StrReplace(ImportSettings, """", "\\\"");

// Form the command to run VBScript

// Use cscript.exe for console output

Command = "cscript.exe //NoLogo \"" + PathToScript + "\" \"" + AuthorizationToken + "\" \"" + PathToXLSXFile + "\" \"" + EscapedSettings + "\"";

Try

WshShell = CreateObject("WScript.Shell");

// Run the script and wait for it to finish

// 0 - window hidden, True - wait for completion

ExecutionResult = WshShell.Run(Command, 0, 1);

// If the script outputs result to WScript.Echo,

// then it needs to be redirected to a file or stdout so 1C can read it.

// Usually, to get output, redirect it to a temporary file

// or run the script with PowerShell, which can capture stdout.

// Simple option: do not get output, only check the exit code.

// If you need server response, VBScript should write it to a file.

If ExecutionResult = 0 Then // Usually 0 indicates success

Return "Import script completed successfully (code: " + ExecutionResult + ").";

Else

Return "Import script finished with an error (code: " + ExecutionResult + "). Check the script logs.";

EndIf;

Catch

MsgBox("Error running external script: " + ErrorDescription());

Return "";

EndTry;

EndFunction

Procedure ExampleImport() Export

Dim Token, PathToFile, Settings, Result;

PathToFile = "D:\Obmen\Import_Prom.xlsx";

Token = STrim(Constance.TokenProm);

Settings = "{ "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" ] }";

Result = ImportProductsPromUaViaScript(Token, PathToFile, Settings);

MsgBox(Result);

EndProcedure