(VBScript) Magento Request with OAuth1.0a Authentication

Demonstrates sending a Magento request with OAuth1.0a authentication. (Using the Magento 1.x REST API)

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.OAuth1 = 1
http.OAuthVerifier = ""
http.OAuthConsumerKey = "MAGENTO_CONSUMER_KEY"
http.OAuthConsumerSecret = "MAGENTO_CONSUMER_SECRET"
http.OAuthToken = "MAGENTO__TOKEN"
http.OAuthTokenSecret = "MAGENTO_TOKEN_SECRET"

http.Accept = "application/json"

url = "http://www.inart.com/api/rest/products/store/2?limit=20&page=1"

jsonStr = http.QuickGetStr(url)
If (http.LastMethodSuccess <> 1) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Response status code = " & http.LastStatus)

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json = CreateObject("Chilkat.JsonObject")
success = json.Load(jsonStr)
json.EmitCompact = 0

outFile.WriteLine(json.Emit())

' Use this online tool to generate parsing code from sample JSON: 
' Generate Parsing Code from JSON

outFile.Close