Chilkat ActiveX Downloads

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)
' This example requires the Chilkat API to have been previously unlocked.' See Global Unlock Sample for sample code.
consumerId = "b68d2a72...."
baseUrl = "https://marketplace.walmartapis.com/v2/feeds"' This is your Base64 encoded private key
privateEncodedStr = "MIICeAIBADANBgkqhkiG9w0BAQEFAA......"
httpMethod = "GET"' We need a timestamp in decimal string form representing the number of milliseconds since Jan 01 1970 UTC.set dt = CreateObject("Chilkat_9_5_0.CkDateTime")
' Set bLocal = 1 for a timestamp in the local timezone. Set bLocal = 0 for a UTC timestamp.
bLocal = 0' This gets the timestamp in seconds, not milliseconds.
timeStampVal = dt.GetAsUnixTime(bLocal)
' Build the string to sign.set sbStringToSign = CreateObject("Chilkat_9_5_0.StringBuilder")
success = sbStringToSign.Append(consumerId)
success = sbStringToSign.Append("\n")
success = sbStringToSign.Append(baseUrl)
success = sbStringToSign.Append("\n")
success = sbStringToSign.Append(httpMethod)
success = sbStringToSign.Append("\n")
success = sbStringToSign.AppendInt(timeStampVal)
' We add three zero's so that the timestamp value is in milliseconds.' We don't care about accuracy down to less than a second.' All the server cares about is that the request was signed at the current date/time' within some reasonable margin of error (to account for systems having clocks' that may be slightly different).
success = sbStringToSign.Append("000\n")
set privKey = CreateObject("Chilkat_9_5_0.PrivateKey")
' Load the private key into a private key object.' Note: Technically the private key is not PEM because it lacks the header/footer strings' used for PEM. However, the LoadPem method will still accept it and load it correctly.
success = privKey.LoadPem(privateEncodedStr)
If (success <> 1) Then
outFile.WriteLine(privKey.LastErrorText)
WScript.Quit
End Ifset rsa = CreateObject("Chilkat_9_5_0.Rsa")
success = rsa.ImportPrivateKeyObj(privKey)
If (success <> 1) Then
outFile.WriteLine(rsa.LastErrorText)
WScript.Quit
End If' We want a base64 signature string.
rsa.EncodingMode = "base64"
signatureString = rsa.SignStringENC(sbStringToSign.GetAsString(),"SHA256")
If (rsa.LastMethodSuccess <> 1) Then
outFile.WriteLine(rsa.LastErrorText)
WScript.Quit
End If
outFile.WriteLine("Signature String: " & signatureString)
outFile.Close