(VBScript) Shopify Create a new unpublished product

Create a new unpublished product

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)

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

success = rest.SetAuthBasic("SHOPIFY_PRIVATE_API_KEY","SHOPIFY_PRIVATE_API_KEY")

success = rest.Connect("chilkat.myshopify.com",443,1,1)
If (success <> 1) Then
    outFile.WriteLine(rest.LastErrorText)
    WScript.Quit
End If

' The following code creates the JSON request body.
' The JSON created by this code is shown below.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set jsonReq = CreateObject("Chilkat.JsonObject")
success = jsonReq.UpdateString("product.title","Burton Custom Freestyle 151")
success = jsonReq.UpdateString("product.body_html","<strong>Good snowboard!</strong>")
success = jsonReq.UpdateString("product.vendor","Burton")
success = jsonReq.UpdateString("product.product_type","Snowboard")
success = jsonReq.UpdateBool("product.published",0)

' The JSON request body created by the above code:

' {
'   "product": {
'     "title": "Burton Custom Freestyle 151",
'     "body_html": "<strong>Good snowboard!<\/strong>",
'     "vendor": "Burton",
'     "product_type": "Snowboard",
'     "published": false
'   }
' }

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sbReq = CreateObject("Chilkat.StringBuilder")
success = jsonReq.EmitSb(sbReq)

success = rest.AddHeader("Content-Type","application/json")

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sbJson = CreateObject("Chilkat.StringBuilder")
success = rest.FullRequestSb("POST","/admin/products.json ",sbReq,sbJson)
If (success <> 1) Then
    outFile.WriteLine(rest.LastErrorText)
    WScript.Quit
End If

If (rest.ResponseStatusCode <> 201) Then
    outFile.WriteLine("Received error response code: " & rest.ResponseStatusCode)
    outFile.WriteLine("Response body:")
    outFile.WriteLine(sbJson.GetAsString())
    WScript.Quit
End If

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

' The following code parses the JSON response.
' A sample JSON response is shown below the sample code.

productId = json.IntOf("product.id")
productTitle = json.StringOf("product.title")
productBody_html = json.StringOf("product.body_html")
productVendor = json.StringOf("product.vendor")
productProduct_type = json.StringOf("product.product_type")
productCreated_at = json.StringOf("product.created_at")
productHandle = json.StringOf("product.handle")
productUpdated_at = json.StringOf("product.updated_at")
productPublished_at = json.IsNullOf("product.published_at")
productTemplate_suffix = json.IsNullOf("product.template_suffix")
productPublished_scope = json.StringOf("product.published_scope")
productTags = json.StringOf("product.tags")
productImage = json.IsNullOf("product.image")
i = 0
count_i = json.SizeOfArray("product.variants")
Do While i < count_i
    json.I = i
    id = json.IntOf("product.variants[i].id")
    product_id = json.IntOf("product.variants[i].product_id")
    title = json.StringOf("product.variants[i].title")
    price = json.StringOf("product.variants[i].price")
    sku = json.StringOf("product.variants[i].sku")
    position = json.IntOf("product.variants[i].position")
    grams = json.IntOf("product.variants[i].grams")
    inventory_policy = json.StringOf("product.variants[i].inventory_policy")
    compare_at_price = json.IsNullOf("product.variants[i].compare_at_price")
    fulfillment_service = json.StringOf("product.variants[i].fulfillment_service")
    inventory_management = json.IsNullOf("product.variants[i].inventory_management")
    option1 = json.StringOf("product.variants[i].option1")
    option2 = json.IsNullOf("product.variants[i].option2")
    option3 = json.IsNullOf("product.variants[i].option3")
    created_at = json.StringOf("product.variants[i].created_at")
    updated_at = json.StringOf("product.variants[i].updated_at")
    taxable = json.BoolOf("product.variants[i].taxable")
    barcode = json.IsNullOf("product.variants[i].barcode")
    image_id = json.IsNullOf("product.variants[i].image_id")
    inventory_quantity = json.IntOf("product.variants[i].inventory_quantity")
    weight = json.IntOf("product.variants[i].weight")
    weight_unit = json.StringOf("product.variants[i].weight_unit")
    old_inventory_quantity = json.IntOf("product.variants[i].old_inventory_quantity")
    requires_shipping = json.BoolOf("product.variants[i].requires_shipping")
    i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("product.options")
Do While i < count_i
    json.I = i
    id = json.IntOf("product.options[i].id")
    product_id = json.IntOf("product.options[i].product_id")
    name = json.StringOf("product.options[i].name")
    position = json.IntOf("product.options[i].position")
    j = 0
    count_j = json.SizeOfArray("product.options[i].values")
    Do While j < count_j
        json.J = j
        strVal = json.StringOf("product.options[i].values[j]")
        j = j + 1
    Loop
    i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("product.images")
Do While i < count_i
    json.I = i
    i = i + 1
Loop

' A sample JSON response body that is parsed by the above code:

' {
'   "product": {
'     "id": 1071559753,
'     "title": "Burton Custom Freestyle 151",
'     "body_html": "<strong>Good snowboard!<\/strong>",
'     "vendor": "Burton",
'     "product_type": "Snowboard",
'     "created_at": "2017-09-22T14:48:52-04:00",
'     "handle": "burton-custom-freestyle-151",
'     "updated_at": "2017-09-22T14:48:52-04:00",
'     "published_at": null,
'     "template_suffix": null,
'     "published_scope": "global",
'     "tags": "",
'     "variants": [
'       {
'         "id": 1070325224,
'         "product_id": 1071559753,
'         "title": "Default Title",
'         "price": "0.00",
'         "sku": "",
'         "position": 1,
'         "grams": 0,
'         "inventory_policy": "deny",
'         "compare_at_price": null,
'         "fulfillment_service": "manual",
'         "inventory_management": null,
'         "option1": "Default Title",
'         "option2": null,
'         "option3": null,
'         "created_at": "2017-09-22T14:48:52-04:00",
'         "updated_at": "2017-09-22T14:48:52-04:00",
'         "taxable": true,
'         "barcode": null,
'         "image_id": null,
'         "inventory_quantity": 1,
'         "weight": 0.0,
'         "weight_unit": "lb",
'         "old_inventory_quantity": 1,
'         "requires_shipping": true
'       }
'     ],
'     "options": [
'       {
'         "id": 1022828912,
'         "product_id": 1071559753,
'         "name": "Title",
'         "position": 1,
'         "values": [
'           "Default Title"
'         ]
'       }
'     ],
'     "images": [
'     ],
'     "image": null
'   }
' }

outFile.WriteLine("Example Completed.")

outFile.Close