(VBScript) Walmart v3 Bulk Item Setup

Updates items in bulk.

For more information, see https://developer.walmart.com/#/apicenter/marketPlace/latest#bulkCreateUpdateItems

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 \
'   https://marketplace.walmartapis.com/v3/feeds?feedType=item \
'   -H 'WM_SVC.NAME: Walmart Marketplace'
'   -H 'WM_SEC.ACCESS_TOKEN: eyJraWQiOiIzZjVhYTFmNS1hYWE5LTQzM.....'
'   -H 'WM_QOS.CORRELATION_ID: b3261d2d-028a-4ef7-8602-633c23200af6'
'   -H 'Content-Type: multipart/form-data'
'   -H 'Accept: application/xml'
'   -F feed=@qa_data/walmart/itemFeed.xml

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.HttpRequest")
set req = CreateObject("Chilkat.HttpRequest")
req.HttpVerb = "POST"
req.Path = "/v3/feeds?feedType=item"
req.ContentType = "multipart/form-data"
success = req.AddFileForUpload2("feed","qa_data/walmart/itemFeed.xml","application/xml")

req.AddHeader "WM_QOS.CORRELATION_ID","b3261d2d-028a-4ef7-8602-633c23200af6"
req.AddHeader "Expect","100-continue"
req.AddHeader "Content-Type","multipart/form-data"
req.AddHeader "WM_SEC.ACCESS_TOKEN","eyJraWQiOiIzZjVhYTFmNS1hYWE5LTQzM....."
req.AddHeader "Accept","application/xml"
req.AddHeader "WM_SVC.NAME","Walmart Marketplace"

' resp is a Chilkat.HttpResponse
Set resp = http.SynchronousRequest("marketplace.walmartapis.com",443,1,req)
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.Xml")
set xmlResponse = CreateObject("Chilkat.Xml")
success = xmlResponse.LoadSb(sbResponseBody,1)
outFile.WriteLine(xmlResponse.GetXml())

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

' <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
' <FeedAcknowledgement xmlns:ns2="http://walmart.com/">
'     <feedId>E9C04D1FFD99479FBC1341D56DD5F930@AQMB_wA</feedId>
' </FeedAcknowledgement>

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

FeedAcknowledgement_xmlns_ns2 = xmlResponse.GetAttrValue("xmlns:ns2")
feedId = xmlResponse.GetChildContent("feedId")

outFile.Close