PerkTracker.vbs

'put your user id NUMBER in idnumbergoeshere.
'its the number in the UID field, not your user id.
PerkUserID = "idnumbergoeshere"
'put your access token in accesstokengoeshere
PerkAccessToken = "accesstokengoeshere"
OutputFile = "PerkData.csv"


PerkAPIUrl = "https://api.perk.com/api/usercurrencyinformation?user_id=[UserID]&access_token=[AccessToken]&device_type=web_browser"
PerkAPIUrl = Replace(PerkAPIUrl, "[UserID]", PerkUserID)
PerkAPIUrl = Replace(PerkAPIUrl, "[AccessToken]", PerkAccessToken)

Set HttpObject = CreateObject("MSXML2.XMLHTTP")
HttpObject.open "GET", PerkAPIUrl, False
HttpObject.send

tmpString = HttpObject.responseText

If (InStr(tmpString, "access token provided is invalid")) > 0 Then
  MsgBox("Access token has expired")
Else

PerksStart = InStr(tmpString, "availableperks")
PerksEnd = InStr(PerksStart, tmpString, "}")

tmpSChar = PerksEnd - PerksStart
tmpString = Mid(tmpString, PerksStart, tmpSChar)
tmpString = Replace(tmpString, """", "")

colonFound = False
For i=1 To Len(tmpString)
 myChar = Mid(tmpString,i,1)
 If colonFound = False Then
  If myChar <> ":" Then
   tmpStringHeader = tmpStringHeader & myChar
  Else
   colonFound = True
  End If
 Else
  If myChar <> "," Then
   tmpStringData = tmpStringData & myChar
  Else
   tmpStringData = tmpStringData & myChar
   tmpStringHeader = tmpStringHeader & myChar
   colonFound = False
  End If
 End If
Next

tmpStringHeader = tmpStringHeader & ",created"
tmpStringData = tmpStringData & "," & FormatDateTime(Now())

Set objFSO = CreateObject("Scripting.FileSystemObject")
WriteHeader = Not objFSO.FileExists(OutputFile)

Set objFile = objFSO.OpenTextFile(OutputFile, 8, True)
If WriteHeader Then
  objFile.WriteLine(tmpStringHeader)
End If
objFile.WriteLine(tmpStringData)
objFile.Close

'MsgBox "Done"

End If