(AutoIt) ETrade v1 List Accounts

List ETrade accounts using the ETrade v1 API.

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

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

$oHttp = ObjCreate("Chilkat.Http")

$oHttp.OAuth1 = True
$oHttp.OAuthVerifier = ""
$oHttp.OAuthConsumerKey = "ETRADE_CONSUMER_KEY"
$oHttp.OAuthConsumerSecret = "ETRADE_CONSUMER_SECRET"

; Load the access token previously obtained via the OAuth1 3-Legged Authorization examples Step1 and Step2.
$oJson = ObjCreate("Chilkat.JsonObject")
Local $bSuccess = $oJson.LoadFile("qa_data/tokens/etrade.json")
If ($bSuccess <> True) Then
    ConsoleWrite("Failed to load OAuth1 token" & @CRLF)
    Exit
EndIf

$oHttp.OAuthToken = $oJson.StringOf("oauth_token")
$oHttp.OAuthTokenSecret = $oJson.StringOf("oauth_token_secret")

; See the ETrade v1 API documentation HERE.

Local $sRespStr = $oHttp.QuickGetStr("https://apisb.etrade.com/v1/accounts/list")
If ($oHttp.LastMethodSuccess <> True) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

; A 200 status code indicates success.
Local $iStatusCode = $oHttp.LastStatus
ConsoleWrite("statusCode = " & $iStatusCode & @CRLF)

; Use the following online tool to generate parsing code from sample XML: 
; Generate Parsing Code from XML

; A sample XML response is shown below...

$oXml = ObjCreate("Chilkat.Xml")
$oXml.LoadXml($sRespStr)

Local $i
Local $iCount_i
Local $sTagPath
Local $iAccountId
Local $sAccountIdKey
Local $sAccountMode
Local $sAccountDesc
Local $sAccountName
Local $sAccountType
Local $sInstitutionType
Local $sAccountStatus
Local $iClosedDate

$i = 0
$iCount_i = $oXml.NumChildrenHavingTag("Accounts|Account")
While $i < $iCount_i
    $oXml.I = $i
    $iAccountId = $oXml.GetChildIntValue("Accounts|Account[i]|accountId")
    $sAccountIdKey = $oXml.GetChildContent("Accounts|Account[i]|accountIdKey")
    $sAccountMode = $oXml.GetChildContent("Accounts|Account[i]|accountMode")
    $sAccountDesc = $oXml.GetChildContent("Accounts|Account[i]|accountDesc")
    $sAccountName = $oXml.GetChildContent("Accounts|Account[i]|accountName")
    $sAccountType = $oXml.GetChildContent("Accounts|Account[i]|accountType")
    $sInstitutionType = $oXml.GetChildContent("Accounts|Account[i]|institutionType")
    $sAccountStatus = $oXml.GetChildContent("Accounts|Account[i]|accountStatus")
    $iClosedDate = $oXml.GetChildIntValue("Accounts|Account[i]|closedDate")
    $i = $i + 1
Wend

; <?xml version="1.0" encoding="UTF-8"?>
; <AccountListResponse>
;    <Accounts>
;       <Account>
;          <accountId>84010429</accountId>
;          <accountIdKey>JIdOIAcSpwR1Jva7RQBraQ</accountIdKey>
;          <accountMode>MARGIN</accountMode>
;          <accountDesc>INDIVIDUAL</accountDesc>
;          <accountName>Individual Brokerage</accountName>
;          <accountType>INDIVIDUAL</accountType>
;          <institutionType>BROKERAGE</institutionType>
;          <accountStatus>ACTIVE</accountStatus>
;          <closedDate>0</closedDate>
;       </Account>
;       <Account>
;          <accountId>84010430</accountId>
;          <accountIdKey>JAAOIAcSpwR1Jva7RQBraQ</accountIdKey>
;          <accountMode>MARGIN</accountMode>
;          <accountDesc>INDIVIDUAL</accountDesc>
;          <accountName>Individual Brokerage</accountName>
;          <accountType>INDIVIDUAL</accountType>
;          <institutionType>BROKERAGE</institutionType>
;          <accountStatus>ACTIVE</accountStatus>
;          <closedDate>0</closedDate>
;       </Account>
;    </Accounts>
; </AccountListResponse>