VBScript Stripe: Retrieve an Event

Back to Index

Retrieves the details of an event. Supply the unique identifier of the event, which you might have received in a webhook.

Documentation: https://stripe.com/docs/api/curl#retrieve_event

CURL Command

curl https://api.stripe.com/v1/events/evt_1BnETJGswQrCoh0XAl7jSmFB \
   -u STRIPE_SECRET_KEY:

VBScript Example

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set rest = CreateObject("Chilkat_9_5_0.Rest")

'  URL: https://api.stripe.com/v1/events/evt_1BnETJGswQrCoh0XAl7jSmFB
bTls = 1
port = 443
bAutoReconnect = 1
success = rest.Connect("api.stripe.com",port,bTls,bAutoReconnect)
If (success <> 1) Then
    outFile.WriteLine("ConnectFailReason: " & rest.ConnectFailReason)
    outFile.WriteLine(rest.LastErrorText)
    WScript.Quit
End If

success = rest.SetAuthBasic("STRIPE_SECRET_KEY","")

set sbResponseBody = CreateObject("Chilkat_9_5_0.StringBuilder")
success = rest.FullRequestNoBodySb("GET","/v1/events/evt_1BnETJGswQrCoh0XAl7jSmFB",sbResponseBody)
If (success <> 1) Then
    outFile.WriteLine(rest.LastErrorText)
    WScript.Quit
End If

set jsonResponse = CreateObject("Chilkat_9_5_0.JsonObject")
success = jsonResponse.LoadSb(sbResponseBody)

id = jsonResponse.StringOf("id")
object = jsonResponse.StringOf("object")
api_version = jsonResponse.IsNullOf("api_version")
created = jsonResponse.IntOf("created")
dataObjectId = jsonResponse.StringOf("data.object.id")
dataObjectObject = jsonResponse.StringOf("data.object.object")
dataObjectAmount = jsonResponse.IntOf("data.object.amount")
dataObjectCreated = jsonResponse.IntOf("data.object.created")
dataObjectCurrency = jsonResponse.StringOf("data.object.currency")
dataObjectInterval = jsonResponse.StringOf("data.object.interval")
dataObjectInterval_count = jsonResponse.IntOf("data.object.interval_count")
dataObjectLivemode = jsonResponse.BoolOf("data.object.livemode")
dataObjectName = jsonResponse.StringOf("data.object.name")
dataObjectStatement_descriptor = jsonResponse.IsNullOf("data.object.statement_descriptor")
dataObjectTrial_period_days = jsonResponse.IsNullOf("data.object.trial_period_days")
livemode = jsonResponse.BoolOf("livemode")
pending_webhooks = jsonResponse.IntOf("pending_webhooks")
requestId = jsonResponse.IsNullOf("request.id")
requestIdempotency_key = jsonResponse.IsNullOf("request.idempotency_key")
type = jsonResponse.StringOf("type")

outFile.Close

Sample JSON Response Body

{
  "id": "evt_1BnETJGswQrCoh0XAl7jSmFB",
  "object": "event",
  "api_version": null,
  "created": 1516662781,
  "data": {
    "object": {
      "id": "gold",
      "object": "plan",
      "amount": 2000,
      "created": 1516662781,
      "currency": "usd",
      "interval": "month",
      "interval_count": 1,
      "livemode": false,
      "metadata": {},
      "name": "T-shirt",
      "statement_descriptor": null,
      "trial_period_days": null
    }
  },
  "livemode": false,
  "pending_webhooks": 0,
  "request": {
    "id": null,
    "idempotency_key": null
  },
  "type": "plan.created"
}