Classic ASP
Get Google API Access Token using P12 Service Account Key

Demonstrates how to get a Google API access token using a P12 service account key.
Chilkat Classic ASP Downloads

Classic ASP
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

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

' --------------------------------------------------------------------------------
' For a step-by-step guide for setting up your Google Workspace service account,
' see Setup Google Workspace Account for Sending SMTP GMail from a Service Account
' --------------------------------------------------------------------------------

' First load the PKCS12 (.p12 / .pfx) into a PFX object.
set pfx = Server.CreateObject("Chilkat.Pfx")
success = pfx.LoadPfxFile("qa_data/pfx/chilkat25-cbd7b42afbd8.p12","notasecret")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( pfx.LastErrorText) & "</pre>"
    Response.End
End If

set gAuth = Server.CreateObject("Chilkat.AuthGoogle")
success = gAuth.SetP12(pfx)

' The ISS is your service account email address ending in gserviceaccount.com.
iss = "chilkatsvc@chilkat25.iam.gserviceaccount.com"

' The scope is always the following string:
scope = "https://mail.google.com/"

' The sub is your company email address
oauth_sub = "info@chilkat.xyz"

' The access token is valid for this number of seconds.
numSec = 3600

gAuth.EmailAddress = iss
gAuth.Scope = scope
gAuth.ExpireNumSeconds = numSec
gAuth.SubEmailAddress = oauth_sub

' Connect to www.googleapis.com
set tlsSock = Server.CreateObject("Chilkat.Socket")
success = tlsSock.Connect("www.googleapis.com",443,1,5000)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( tlsSock.LastErrorText) & "</pre>"
    Response.End
End If

' Send the request to obtain the access token.
success = gAuth.ObtainAccessToken(tlsSock)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( gAuth.LastErrorText) & "</pre>"
    Response.End
End If

' Examine the access token:
Response.Write "<pre>" & Server.HTMLEncode( "Access Token: " & gAuth.AccessToken) & "</pre>"

%>
</body>
</html>