(VBScript) WiX - Get all Products in a Store

Gets the first page of products in a store.

For more information, see https://dev.wix.com/api/rest/wix-stores/catalog/filter-and-sort

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http")
set http = CreateObject("Chilkat.Http")

' Implements the following CURL command:

' curl -X POST -H "Content-Type: application/json" \
'    -d '{
'   "includeVariants": true
'   }' https://www.wixapis.com/stores/v1/products/query

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json = CreateObject("Chilkat.JsonObject")
success = json.UpdateBool("includeVariants",1)

http.AuthToken = "ACCESS_TOKEN"
http.SetRequestHeader "Content-Type","application/json"

' resp is a Chilkat.HttpResponse
Set resp = http.PostJson3("https://www.wixapis.com/stores/v1/products/query","application/json",json)
If (http.LastMethodSuccess = 0) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sbResponseBody = CreateObject("Chilkat.StringBuilder")
success = resp.GetBodySb(sbResponseBody)
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set jResp = CreateObject("Chilkat.JsonObject")
success = jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = 0

outFile.WriteLine("Response Body:")
outFile.WriteLine(jResp.Emit())

respStatusCode = resp.StatusCode
outFile.WriteLine("Response Status Code = " & respStatusCode)
If (respStatusCode >= 400) Then
    outFile.WriteLine("Response Header:")
    outFile.WriteLine(resp.Header)
    outFile.WriteLine("Failed.")

    WScript.Quit
End If

' Sample JSON response:
' (Sample code for parsing the JSON response is shown below)

' {
'   "products": [
'     {
'       "id": "58fcbb51-ff87-08ff-d97b-646726676e4a",
'       "name": "webhook test",
'       "slug": "webhook-test",
'       "visible": true,
'       "productType": "physical",
'       "description": "<p>fasdf<\/p>",
'       "stock": {
'         "trackInventory": true,
'         "quantity": 0,
'         "inStock": false
'       },
'       "price": {
'         "currency": "ILS",
'         "price": 234,
'         "discountedPrice": 234,
'         "formatted": {
'           "price": "234.00 ₪",
'           "discountedPrice": "234.00 ₪"
'         }
'       },
'       "priceData": {
'         "currency": "ILS",
'         "price": 234,
'         "discountedPrice": 234,
'         "formatted": {
'           "price": "234.00 ₪",
'           "discountedPrice": "234.00 ₪"
'         }
'       },
'       "additionalInfoSections": [
'       ],
'       "ribbons": [
'         {
'           "text": "ribby"
'         }
'       ],
'       "media": {
'         "items": [
'         ]
'       },
'       "customTextFields": [
'       ],
'       "manageVariants": true,
'       "productOptions": [
'       ],
'       "productPageUrl": {
'         "base": "https://www.my-website.com/",
'         "path": "/product-page/webhook-test"
'       },
'       "numericId": "1567078000586000",
'       "inventoryItemId": "a70344ae-0078-f700-2684-9b98d99891b5",
'       "discount": {
'         "type": "NONE",
'         "value": 0
'       },
'       "collectionIds": [
'       ],
'       "variants": [
'       ]
'     },
'     {
'       "id": "6507fd67-94e5-10af-73e4-d2167852d5bc",
'       "name": "digital product",
'       "slug": "digital-product",
'       "visible": true,
'       "productType": "digital",
'       "description": "",
'       "sku": "",
'       "weight": 0,
'       "stock": {
'         "trackInventory": false,
'         "inStock": true
'       },
'       "price": {
'         "currency": "ILS",
'         "price": 123,
'         "discountedPrice": 123,
'         "formatted": {
'           "price": "123.00 ₪",
'           "discountedPrice": "123.00 ₪"
'         }
'       },
'       "priceData": {
'         "currency": "ILS",
'         "price": 123,
'         "discountedPrice": 123,
'         "formatted": {
'           "price": "123.00 ₪",
'           "discountedPrice": "123.00 ₪"
'         }
'       },
'       "additionalInfoSections": [
'       ],
'       "ribbons": [
'       ],
'       "media": {
'         "items": [
'         ]
'       },
'       "customTextFields": [
'       ],
'       "manageVariants": false,
'       "productOptions": [
'       ],
'       "productPageUrl": {
'         "base": "https://www.my-website.com/",
'         "path": "/product-page/digital-product"
'       },
'       "numericId": "1544009414325000",
'       "inventoryItemId": "9af80298-6b1a-ef50-8c1b-2de987ad2a43",
'       "discount": {
'         "type": "NONE",
'         "value": 0
'       },
'       "collectionIds": [
'         "ae886d55-2572-eee8-b2c4-13219844b5e4"
'       ],
'       "variants": [
'       ]
'     }
'   ],
'   "metadata": {
'     "items": 100,
'     "offset": 0
'   },
'   "totalResults": 2
' }

' Sample code for parsing the JSON response...
' Use the following online tool to generate parsing code from sample JSON:
' Generate Parsing Code from JSON

metadataItems = jResp.IntOf("metadata.items")
metadataOffset = jResp.IntOf("metadata.offset")
totalResults = jResp.IntOf("totalResults")
i = 0
count_i = jResp.SizeOfArray("products")
Do While i < count_i
    jResp.I = i
    id = jResp.StringOf("products[i].id")
    name = jResp.StringOf("products[i].name")
    slug = jResp.StringOf("products[i].slug")
    visible = jResp.BoolOf("products[i].visible")
    productType = jResp.StringOf("products[i].productType")
    description = jResp.StringOf("products[i].description")
    stockTrackInventory = jResp.BoolOf("products[i].stock.trackInventory")
    stockQuantity = jResp.IntOf("products[i].stock.quantity")
    stockInStock = jResp.BoolOf("products[i].stock.inStock")
    priceCurrency = jResp.StringOf("products[i].price.currency")
    pricePrice = jResp.IntOf("products[i].price.price")
    priceDiscountedPrice = jResp.IntOf("products[i].price.discountedPrice")
    priceFormattedPrice = jResp.StringOf("products[i].price.formatted.price")
    priceFormattedDiscountedPrice = jResp.StringOf("products[i].price.formatted.discountedPrice")
    priceDataCurrency = jResp.StringOf("products[i].priceData.currency")
    priceDataPrice = jResp.IntOf("products[i].priceData.price")
    priceDataDiscountedPrice = jResp.IntOf("products[i].priceData.discountedPrice")
    priceDataFormattedPrice = jResp.StringOf("products[i].priceData.formatted.price")
    priceDataFormattedDiscountedPrice = jResp.StringOf("products[i].priceData.formatted.discountedPrice")
    manageVariants = jResp.BoolOf("products[i].manageVariants")
    productPageUrlBase = jResp.StringOf("products[i].productPageUrl.base")
    productPageUrlPath = jResp.StringOf("products[i].productPageUrl.path")
    numericId = jResp.StringOf("products[i].numericId")
    inventoryItemId = jResp.StringOf("products[i].inventoryItemId")
    discountType = jResp.StringOf("products[i].discount.type")
    discountValue = jResp.IntOf("products[i].discount.value")
    sku = jResp.StringOf("products[i].sku")
    weight = jResp.IntOf("products[i].weight")
    j = 0
    count_j = jResp.SizeOfArray("products[i].additionalInfoSections")
    Do While j < count_j
        jResp.J = j
        j = j + 1
    Loop
    j = 0
    count_j = jResp.SizeOfArray("products[i].ribbons")
    Do While j < count_j
        jResp.J = j
        text = jResp.StringOf("products[i].ribbons[j].text")
        j = j + 1
    Loop
    j = 0
    count_j = jResp.SizeOfArray("products[i].media.items")
    Do While j < count_j
        jResp.J = j
        j = j + 1
    Loop
    j = 0
    count_j = jResp.SizeOfArray("products[i].customTextFields")
    Do While j < count_j
        jResp.J = j
        j = j + 1
    Loop
    j = 0
    count_j = jResp.SizeOfArray("products[i].productOptions")
    Do While j < count_j
        jResp.J = j
        j = j + 1
    Loop
    j = 0
    count_j = jResp.SizeOfArray("products[i].collectionIds")
    Do While j < count_j
        jResp.J = j
        strVal = jResp.StringOf("products[i].collectionIds[j]")
        j = j + 1
    Loop
    j = 0
    count_j = jResp.SizeOfArray("products[i].variants")
    Do While j < count_j
        jResp.J = j
        j = j + 1
    Loop
    i = i + 1
Loop

outFile.Close