(AutoIt) Aruba Fatturazione Elettronica userinfo

This method lets you retrieve user information relating to the authentication token.

For more information, see https://fatturazioneelettronica.aruba.it/apidoc/docs_EN.html#auth-user-info

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

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

$oHttp = ObjCreate("Chilkat.Http")
Local $bSuccess

; Implements the following CURL command:

; curl -X GET https://auth.fatturazioneelettronica.aruba.it/auth/userInfo \
;   -H "Authorization: Bearer NLOGDVXLVaF3tzmnVPkTwpkuh7dG0i09uSCcog3u+rE="

; Use the following online tool to generate HTTP code from a CURL command
; Convert a cURL Command to HTTP Source Code

; Adds the "Authorization: Bearer NLOGDVXLVaF3tzmnVPkTwpkuh7dG0i09uSCcog3u+rE=" header.
$oHttp.AuthToken = "NLOGDVXLVaF3tzmnVPkTwpkuh7dG0i09uSCcog3u+rE="

$oSbResponseBody = ObjCreate("Chilkat.StringBuilder")
$bSuccess = $oHttp.QuickGetSb("https://auth.fatturazioneelettronica.aruba.it/auth/userInfo",$oSbResponseBody)
If ($bSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

$oJResp = ObjCreate("Chilkat.JsonObject")
$oJResp.LoadSb($oSbResponseBody)
$oJResp.EmitCompact = False

ConsoleWrite("Response Body:" & @CRLF)
ConsoleWrite($oJResp.Emit() & @CRLF)

Local $iRespStatusCode = $oHttp.LastStatus
ConsoleWrite("Response Status Code = " & $iRespStatusCode & @CRLF)
If ($iRespStatusCode >= 400) Then
    ConsoleWrite("Response Header:" & @CRLF)
    ConsoleWrite($oHttp.LastHeader & @CRLF)
    ConsoleWrite("Failed." & @CRLF)
    Exit
EndIf

; Sample JSON response:
; (Sample code for parsing the JSON response is shown below)

; {
;   "username": "ARUBA0000",
;   "pec": "pec@pec.it",
;   "userDescription": "Aruba PEC S.p.A.",
;   "countryCode": "IT",
;   "vatCode": "01879020517",
;   "fiscalCode": "01879020517",
;   "accountStatus": {
;     "expired": false,
;     "expirationDate": "2020-10-10"
;   },
;   "usageStatus": {
;     "usedSpaceKB": 262144,
;     "maxSpaceKB": 1048576
;   }
; }

; Sample code for parsing the JSON response...
; Use the following online tool to generate parsing code from sample JSON:
; Generate Parsing Code from JSON

Local $sUsername = $oJResp.StringOf("username")
Local $sPec = $oJResp.StringOf("pec")
Local $sUserDescription = $oJResp.StringOf("userDescription")
Local $sCountryCode = $oJResp.StringOf("countryCode")
Local $sVatCode = $oJResp.StringOf("vatCode")
Local $sFiscalCode = $oJResp.StringOf("fiscalCode")
Local $bAccountStatusExpired = $oJResp.BoolOf("accountStatus.expired")
Local $sAccountStatusExpirationDate = $oJResp.StringOf("accountStatus.expirationDate")
Local $iUsageStatusUsedSpaceKB = $oJResp.IntOf("usageStatus.usedSpaceKB")
Local $iUsageStatusMaxSpaceKB = $oJResp.IntOf("usageStatus.maxSpaceKB")