(AutoIt) ETrade List Accounts

Returns a list of E*TRADE accounts for the current user.

For more information, see https://apisb.etrade.com/docs/api/account/api-account-v1.html

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

; This 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 Authorization
$oJsonToken = ObjCreate("Chilkat.JsonObject")
Local $bSuccess = $oJsonToken.LoadFile("qa_data/tokens/etrade.json")
If ($bSuccess <> True) Then
    ConsoleWrite("Failed to load OAuth1 token" & @CRLF)
    Exit
EndIf

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

Local $sandboxUrl = "https://apisb.etrade.com/v1/accounts/list"
Local $sLiveUrl = "https://api.etrade.com/v1/accounts/list"

Local $oResp = $oHttp.QuickGetObj($sandboxUrl)
If ($oHttp.LastMethodSuccess <> True) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

; Make sure a successful response was received.
If ($oResp.StatusCode >= 300) Then
    ConsoleWrite($oResp.StatusLine & @CRLF)
    ConsoleWrite($oResp.Header & @CRLF)
    ConsoleWrite($oResp.BodyStr & @CRLF)
    Exit
EndIf

If ($oResp.StatusCode = 204) Then
    ConsoleWrite("No records available." & @CRLF)
    Exit
EndIf

; Sample XML response:

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

; <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
; <AccountListResponse>
;     <Accounts>
;         <Account>
;             <accountId>82314598</accountId>
;             <accountIdKey>dBZOKt9xDrtRSAOl4MSiiA</accountIdKey>
;             <accountMode>IRA</accountMode>
;             <accountDesc>Brokerage</accountDesc>
;             <accountName>NickName-1</accountName>
;             <accountType>MARGIN</accountType>
;             <institutionType>BROKERAGE</institutionType>
;             <accountStatus>ACTIVE</accountStatus>
;             <closedDate>0</closedDate>
;         </Account>
;         <Account>
;             <accountId>58315636</accountId>
;             <accountIdKey>vQMsebA1H5WltUfDkJP48g</accountIdKey>
;             <accountMode>BROKERAGE</accountMode>
;             <accountDesc>Complete Savings</accountDesc>
;             <accountName>NickName-2</accountName>
;             <accountType>INDIVIDUAL</accountType>
;             <institutionType>BROKERAGE</institutionType>
;             <accountStatus>ACTIVE</accountStatus>
;             <closedDate>0</closedDate>
;         </Account>
;         <Account>
;             <accountId>70700418</accountId>
;             <accountIdKey>6_Dpy0rmuQ9cu9IbTfvF2A</accountIdKey>
;             <accountMode>CASH</accountMode>
;             <accountDesc>INDIVIDUAL</accountDesc>
;             <accountName>NickName-3</accountName>
;             <accountType>INDIVIDUAL</accountType>
;             <institutionType>BROKERAGE</institutionType>
;             <accountStatus>ACTIVE</accountStatus>
;             <closedDate>0</closedDate>
;         </Account>
;         <Account>
;             <accountId>83515143</accountId>
;             <accountIdKey>xj1Dc18FTqWPqkEEVUr5rw</accountIdKey>
;             <accountMode>CASH</accountMode>
;             <accountDesc>INDIVIDUAL</accountDesc>
;             <accountName/>
;             <accountType>CASH</accountType>
;             <institutionType>BROKERAGE</institutionType>
;             <accountStatus>CLOSED</accountStatus>
;             <closedDate>1521027780</closedDate>
; 
;         </Account>
;     </Accounts>
; </AccountListResponse>

$oXml = ObjCreate("Chilkat.Xml")
$oXml.LoadXml($oResp.BodyStr)
ConsoleWrite($oXml.GetXml() & @CRLF)

Local $iAccountId
Local $sAccountIdKey
Local $sAccountMode
Local $sAccountDesc
Local $sAccountName
Local $sAccountType
Local $sInstitutionType
Local $sAccountStatus
Local $iClosedDate

Local $i = 0
Local $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

ConsoleWrite("Success." & @CRLF)