VBScript Requires Chilkat v11.5.0+

Box: Get a Service Account Token with JWT

See more Box Examples

Use the encrypted private key in a Box application configuration file to sign a short-lived assertion and exchange it for an access token. Configure and authorize a JWT Server app first. The enterprise subject obtains the service-account token.

See the Box API guide for setup and the complete workflow.

VBScript

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

'  Requires Chilkat 11.5.0 or later and a previously unlocked Chilkat bundle.
'  See Global Unlock Sample.
'  Guide: Box API Guide.

success = 0

set config = CreateObject("Chilkat.JsonObject")
success = config.LoadFile("qa_data/tokens/box_jwt_config.json")
If (success <> 1) Then
    outFile.WriteLine(config.LastErrorText)
    WScript.Quit
End If

set key = CreateObject("Chilkat.PrivateKey")
success = key.LoadEncryptedPem(config.StringOf("boxAppSettings.appAuth.privateKey"),config.StringOf("boxAppSettings.appAuth.passphrase"))
If (success <> 1) Then
    outFile.WriteLine(key.LastErrorText)
    WScript.Quit
End If

set header = CreateObject("Chilkat.JsonObject")
success = header.UpdateString("alg","RS256")
success = header.UpdateString("typ","JWT")
success = header.UpdateString("kid",config.StringOf("boxAppSettings.appAuth.publicKeyID"))
set jwt = CreateObject("Chilkat.Jwt")
set prng = CreateObject("Chilkat.Prng")
nonce = prng.GenRandom(32,"hex")
If (prng.LastMethodSuccess <> 1) Then
    outFile.WriteLine(prng.LastErrorText)
    WScript.Quit
End If

set claims = CreateObject("Chilkat.JsonObject")
success = claims.UpdateString("iss",config.StringOf("boxAppSettings.clientID"))
success = claims.UpdateString("sub",config.StringOf("enterpriseID"))
success = claims.UpdateString("box_sub_type","enterprise")
success = claims.UpdateString("aud","https://api.box.com/oauth2/token")
success = claims.UpdateString("jti",nonce)
success = claims.UpdateInt("exp",jwt.GenNumericDate(45))
assertion = jwt.CreateJwtPk(header.Emit(),claims.Emit(),key)
If (jwt.LastMethodSuccess <> 1) Then
    outFile.WriteLine(jwt.LastErrorText)
    WScript.Quit
End If

set curl = CreateObject("Chilkat.HttpCurl")
curl.SetVar "client_id",config.StringOf("boxAppSettings.clientID")
curl.SetVar "client_secret",config.StringOf("boxAppSettings.clientSecret")
curl.SetVar "assertion",assertion
curl.ClearTargetOutput "*"
curl.ClearVar "access_token"
curl.AddTargetOutput "access_token","access_token"
success = curl.DoYourThing("curl -X POST ""https://api.box.com/oauth2/token"" --data-urlencode ""grant_type=urn:ietf:params:oauth:grant-type:jwt-bearer"" --data-urlencode ""client_id={{client_id}}"" --data-urlencode ""client_secret={{client_secret}}"" --data-urlencode ""assertion={{assertion}}""")
If ((success <> 1) Or (curl.StatusCode <> 200)) Then
    outFile.WriteLine("Box request failed. HTTP status: " & curl.StatusCode)
    outFile.WriteLine("Failure reason: " & curl.FailReason)
    WScript.Quit
End If

If (curl.VarDefined("!") <> 1) Then
    outFile.WriteLine("Expected response fields are missing.")
    WScript.Quit
End If

'  Reuse the token in this HttpCurl instance. JWT tokens are renewed by making
'  a new assertion/token request, not by using a refresh token.
outFile.WriteLine("JWT access token obtained.")

outFile.Close