VBScript

Generate OAuth 1.0 Signature

Demonstrates how to generate an OAuth 1.0 signature. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

success = 0

set oauth = CreateObject("Chilkat.OAuth1")

' Set input parameters:
oauth.OauthVersion = "1.0"
oauth.OauthMethod = "GET"
oauth.OauthUrl = "http://echo.lab.madgex.com/echo.ashx"
oauth.ConsumerKey = "key"
oauth.ConsumerSecret = "secret"
oauth.Token = "accesskey"
oauth.TokenSecret = "accesssecret"
oauth.Nonce = "01020304050607080102030405060708"
oauth.Timestamp = "1441659763"
' Can be "HMAC-SHA1", "HMAC-SHA256", "RSA-SHA1", or "RSA-SHA2"
oauth.SignatureMethod = "HMAC-SHA256"

success = oauth.Generate()
If (success <> 1) Then
    outFile.WriteLine(oauth.LastErrorText)
    WScript.Quit
End If

' Examine the various outputs:

outFile.WriteLine(oauth.QueryString)
outFile.WriteLine(oauth.BaseString)
outFile.WriteLine(oauth.HmacKey)
outFile.WriteLine(oauth.Signature)
outFile.WriteLine(oauth.EncodedSignature)
outFile.WriteLine(oauth.AuthorizationHeader)
outFile.WriteLine(oauth.GeneratedUrl)

outFile.Close