Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VBScript) Walmart - Get an Order by purchaseOrderIdGets the XML data for an order by purchaseOrderId.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") Set outFile = fso.CreateTextFile("output.txt", True) ' --------------------------------------------------------------------------------------------------------- ' Note: This example is deprecated. The Walmart API no longer uses the Signature method of authenticating. ' Walmart now uses OAuth2. ' --------------------------------------------------------------------------------------------------------- ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' Demonstrates how to get the XML for a particular order by purchaseOrderId ' Sends the following GET request: ' GET https://marketplace.walmartapis.com/v3/orders/{purchaseOrderId} set sbUrl = CreateObject("Chilkat_9_5_0.StringBuilder") success = sbUrl.Append("https://marketplace.walmartapis.com/v3/orders/{purchaseOrderId}") numReplaced = sbUrl.Replace("{purchaseOrderId}","1111691995111") requestMethod = "GET" ' First we need to generate a signature for the request. ' The signature needs to be re-generated for each new Walmart HTTP request. set authUtil = CreateObject("Chilkat_9_5_0.AuthUtil") wmConsumerId = "WALMART_CONSUMER_ID" wmPrivateKey = "WALMART_PRIVATE_KEY" jsonStr = authUtil.WalmartSignature(sbUrl.GetAsString(),wmConsumerId,wmPrivateKey,requestMethod) If (authUtil.LastMethodSuccess <> 1) Then outFile.WriteLine(authUtil.LastErrorText) WScript.Quit End If ' The JSON returned by WalmartSignature contains the values to be used in the following ' header fields: WM_SEC.AUTH_SIGNATURE, WM_SEC.TIMESTAMP, and WM_QOS.CORRELATION_ID set json = CreateObject("Chilkat_9_5_0.JsonObject") success = json.Load(jsonStr) set http = CreateObject("Chilkat_9_5_0.Http") http.SetRequestHeader "WM_SVC.NAME","Walmart Marketplace" http.SetRequestHeader "WM_QOS.CORRELATION_ID",json.StringOf("correlation_id") http.SetRequestHeader "WM_SEC.TIMESTAMP",json.StringOf("timestamp") http.SetRequestHeader "WM_SEC.AUTH_SIGNATURE",json.StringOf("signature") http.SetRequestHeader "WM_CONSUMER.ID",wmConsumerId http.SetRequestHeader "WM_CONSUMER.CHANNEL.TYPE","WALMART_CHANNEL_TYPE" http.Accept = "application/xml" ' Note: Do not explicitly set the "Host" header. Chilkat will set it automatically. xmlStr = http.QuickGetStr(sbUrl.GetAsString()) If (http.LastMethodSuccess <> 1) Then outFile.WriteLine(http.LastErrorText) WScript.Quit End If set xml = CreateObject("Chilkat_9_5_0.Xml") success = xml.LoadXml(xmlStr) ' A successful response should have a 200 response status If (http.LastStatus <> 200) Then outFile.WriteLine(xml.GetXml()) outFile.WriteLine("Response Status Code: " & http.LastStatus) outFile.WriteLine("Failed.") WScript.Quit End If ' Show the XML response: outFile.WriteLine(xml.GetXml()) outFile.WriteLine("Success.") outFile.Close |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.