VBScript

Check PayPal Access Token Expiration

See more PayPal Examples

Checks to see if the PayPal access token expired. 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

' Note: Requires Chilkat v9.5.0.64 or greater.

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

' In the example linked here: PayPal OAuth2 Token,
' we fetched a PayPal access token and saved it to a JSON file.
' We also recorded the current date/time.
' Load this JSON file and compare the current date/time with the fetch date/time
' and the "expires_in" value to see if the token is expired.

set json = CreateObject("Chilkat.JsonObject")
success = json.LoadFile("qa_data/tokens/paypal.json")
If (success <> 1) Then
    outFile.WriteLine("Failed to load access key json file.")
    WScript.Quit
End If

' Get the current date/time.
set dateTime = CreateObject("Chilkat.CkDateTime")
bLocalTime = 0
dtNow = dateTime.GetAsUnixTime(bLocalTime)

' Get the access token create date/time
dtCreate = json.IntOf("tokenCreateTimeUtc")

' Find out how many seconds have elapsed.
numSeconds = dtNow - dtCreate

' Get the expires_in value from the JSON.
expires_in = json.IntOf("expires_in")

outFile.WriteLine("token age (in seconds) = " & numSeconds)
outFile.WriteLine("expires_in = " & expires_in)

' If the token expired, or if it will expire in 5 minutes or less,
' get another token.
If (numSeconds < (expires_in - 300)) Then
    outFile.WriteLine("The token is not yet expired.  No need to fetch another.")
    WScript.Quit
End If

outFile.WriteLine("Time to fetch a new access token...")

' Get another token..
' See the example at Get PayPal OAuth2 Token
' to get another token..

outFile.Close