AutoIt

ETrade v1 List Accounts

See more HTTP Misc Examples

List ETrade accounts using the ETrade v1 API. AutoIt

Local $bSuccess = False

;  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")
$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>