(VBScript) Shopify Retrieve the item's inventory levels

After you have the inventory item ID, you can use it with the InventoryLevel resource to find the levels and locations for the inventory item:

For more information, see https://shopify.dev/tutorials/manage-product-inventory-with-admin-api#retrieve-the-inventory-levels-for-a-product-variant

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 requires 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")

http.Login = "SHOPIFY_PRIVATE_API_KEY"
http.Password = "SHOPIFY_PRIVATE_API_KEY"

http.Accept = "application/json"

' How to get the inventory item ID

' resp is a Chilkat.HttpResponse
Set resp = http.QuickRequest("GET","https://{shop}.myshopify.com/admin/api/2020-04/inventory_levels.json?inventory_item_ids={inventory_item_id}")
If (http.LastMethodSuccess <> 1) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Response Status Code: " & resp.StatusCode)

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set jsonResponse = CreateObject("Chilkat.JsonObject")
success = jsonResponse.Load(resp.BodyStr)
jsonResponse.EmitCompact = 0
outFile.WriteLine(jsonResponse.Emit())

If (resp.StatusCode <> 200) Then
    outFile.WriteLine("Failed.")

    WScript.Quit
End If

' Sample output...
' (See the parsing code below..)
' 
' Use the this online tool to generate parsing code from sample JSON: 
' Generate Parsing Code from JSON

' {
'   "inventory_levels": [
'     {
'       "inventory_item_id": 12250274365496,
'       "location_id": 6884556842,
'       "available": 8,
'       "updated_at": "2018-06-18T11:49:50-04:00",
'       "admin_graphql_api_id": "gid://shopify/InventoryLevel/6485147690?inventory_item_id=12250274365496"
'     },
'     {
'       "inventory_item_id": 12250274365496,
'       "location_id": 13968834616,
'       "available": 50,
'       "updated_at": "2018-06-26T14:44:30-04:00",
'       "admin_graphql_api_id": "gid://shopify/InventoryLevel/13570506808?inventory_item_id=12250274365496"
'     },
'     {
'       "inventory_item_id": 12250274365496,
'       "location_id": 13968867384,
'       "available": 100,
'       "updated_at": "2018-06-26T14:44:30-04:00",
'       "admin_graphql_api_id": "gid://shopify/InventoryLevel/13570539576?inventory_item_id=12250274365496"
'     }
'   ]
' }
' 

i = 0
count_i = jsonResponse.SizeOfArray("inventory_levels")
Do While i < count_i
    jsonResponse.I = i
    inventory_item_id = jsonResponse.IntOf("inventory_levels[i].inventory_item_id")
    location_id = jsonResponse.IntOf("inventory_levels[i].location_id")
    available = jsonResponse.IntOf("inventory_levels[i].available")
    updated_at = jsonResponse.StringOf("inventory_levels[i].updated_at")
    admin_graphql_api_id = jsonResponse.StringOf("inventory_levels[i].admin_graphql_api_id")
    i = i + 1
Loop

outFile.Close