(VBScript) Bitfinex v2 REST User Info

Retrieve the user ID, email, username and timezone setting for the account associated with the API key used.

Note: This example requires Chilkat v11.0.0 or greater.

For more information, see https://docs.bitfinex.com/reference#rest-auth-info-user

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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

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

set http = CreateObject("Chilkat.Http")

' Implements the following CURL command:

' curl -X POST -H "bfx-nonce: nonce" \
'   -H "bfx-apikey: apiKey" \
'   -H "bfx-signature: sig" \ 
'   https://api.bitfinex.com/v2/auth/r/info/user

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

set crypt = CreateObject("Chilkat.Crypt2")

apiPath = "v2/auth/r/info/user"
apiKey = "MY_API_KEY"
apiSecret = "MY_API_SECRET"

set dt = CreateObject("Chilkat.CkDateTime")
success = dt.SetFromCurrentSystemTime()

set sbNonce = CreateObject("Chilkat.StringBuilder")
success = sbNonce.Append(dt.GetAsUnixTimeStr(0))
success = sbNonce.Append("000")
nonce = sbNonce.GetAsString()

' This particular request has an empty body.
body = ""

set sbSignature = CreateObject("Chilkat.StringBuilder")
success = sbSignature.Append("/api/")
success = sbSignature.Append(apiPath)
success = sbSignature.Append(nonce)
success = sbSignature.Append(body)

crypt.EncodingMode = "hex_lower"
crypt.HashAlgorithm = "sha384"
crypt.MacAlgorithm = "hmac"
success = crypt.SetMacKeyString(apiSecret)

sig = crypt.MacStringENC(sbSignature.GetAsString())

http.SetRequestHeader "bfx-apikey",apiKey
http.SetRequestHeader "bfx-signature",sig
http.SetRequestHeader "bfx-nonce",nonce

set resp = CreateObject("Chilkat.HttpResponse")
success = http.HttpNoBody("POST","https://api.bitfinex.com/v2/auth/r/info/user",resp)
If (success = 0) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Response body:")
outFile.WriteLine(resp.BodyStr)

' Sample response body:

' [1234567,"joe@example.com","joe_trader",1527691729000,0,null,null,"Central Time (US & Canada)"]

outFile.Close