(VBScript) ETrade OAuth1 Authorization (3-legged) Step 1

Demonstrates the first step in 3-legged OAuth1 authorization for the ETrade REST API. This example sends an HTTP request to the "request token URL" to get a request token that begins the OAuth1 process. (See https://developer.etrade.com/ctnt/dev-portal/getDetail?contentUri=V0_Documentation-AuthorizationAPI-GetRequestToken )

This example uses the sandbox request token URL. The live request token URL would be "https://etws.etrade.com/oauth/request_token".

Note: Requires Chilkat v9.5.0.64 or later.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

'  Requires Chilkat v9.5.0.64 or later.

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

consumerKey = "ETRADE_CONSUMER_KEY"
consumerSecret = "ETRADE_CONSUMER_SECRET"

requestTokenUrl = "https://etwssandbox.etrade.com/oauth/request_token"
authorizeUrl = "https://us.etrade.com/e/t/etws/authorize"

set http = CreateObject("Chilkat_9_5_0.Http")
success = 1

http.OAuth1 = 1
http.OAuthConsumerKey = consumerKey
http.OAuthConsumerSecret = consumerSecret
http.OAuthCallback = "oob"

' resp is a Chilkat_9_5_0.HttpResponse
Set resp = http.QuickGetObj(requestTokenUrl)
If (http.LastMethodSuccess <> 1) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

'  If successful, the resp.BodyStr contains something like this:
'  oauth_token=-Wa_KwAAAAAAxfEPAAABV8Qar4Q&oauth_token_secret=OfHY4tZBX2HK4f7yIw76WYdvnl99MVGB&oauth_callback_confirmed=true
outFile.WriteLine(resp.BodyStr)

set hashTab = CreateObject("Chilkat_9_5_0.Hashtable")
success = hashTab.AddQueryParams(resp.BodyStr)

requestToken = hashTab.LookupStr("oauth_token")
requestTokenSecret = hashTab.LookupStr("oauth_token_secret")
http.OAuthTokenSecret = requestTokenSecret

outFile.WriteLine("oauth_token = " & requestToken)
outFile.WriteLine("oauth_token_secret = " & requestTokenSecret)

'  Save this request token for the next step..
set json = CreateObject("Chilkat_9_5_0.JsonObject")
success = json.AppendString("oauth_token",requestToken)
success = json.AppendString("oauth_token_secret",requestTokenSecret)

set fac = CreateObject("Chilkat_9_5_0.FileAccess")
success = fac.WriteEntireTextFile("qa_data/tokens/etrade_request_token.json",json.Emit(),"utf-8",0)

'  ---------------------------------------------------------------------------

'  The next step is to form a URL to send to the authorizeUrl
'  This is an HTTP GET that we load into a popup browser.
set sbUrlForBrowser = CreateObject("Chilkat_9_5_0.StringBuilder")
success = sbUrlForBrowser.Append(authorizeUrl)
success = sbUrlForBrowser.Append("?key=")
success = sbUrlForBrowser.Append(consumerKey)
success = sbUrlForBrowser.Append("&token=")
success = sbUrlForBrowser.Append(requestToken)
urlForBrowser = sbUrlForBrowser.GetAsString()

'   At this point, your application should load the URL in a browser.
'   For example,
'   in C#:  System.Diagnostics.Process.Start(urlForBrowser);
'   in Java: Desktop.getDesktop().browse(new URI(urlForBrowser));
'   in VBScript: Set wsh=WScript.CreateObject("WScript.Shell")
'                wsh.Run urlForBrowser

'   Add the code to load the url in a web browser here...
'   Add the code to load the url in a web browser here...
'   Add the code to load the url in a web browser here...
' System.Diagnostics.Process.Start(urlForBrowser);

'  The ETrade account owner will login and grant access to the application.
'  A short verifier code will be displayed (as shown below), and this must be copy-and-pasted
'  into the next step to Complete the 3-legged OAuth1 Authorization

'  Note: The browser will NOT automatically direct you to the next page.
'  You should copy the verifier code, close the browser, and then paste the verifier
'  code into your application.

'  

outFile.Close