离线访问的Google日历Oauth

Question

我试图使用VBScript和Oauth脱机访问谷歌日历API。我设法获得了一个刷新令牌和一个访问令牌，现在我想进入实际使用API的步骤，使用以下代码：

sUrl="https://www.googleapis.com/calendar/v3/users/me/calendarList"
sRequest = "access_token="&accesstoken

response=HTTPPost (sUrl, sRequest)

Function HTTPPost(sUrl, sRequest)
    set oHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    oHTTP.open "POST", sUrl,false
    oHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    oHTTP.setRequestHeader "Content-Length", Len(sRequest)
    oHTTP.send sRequest
    HTTPPost = oHTTP.responseText
End Function

我得到的回应是：

    {
 "error": {
  "errors": [
   {
    "domain": "global",
    "reason": "authError",
    "message": "Invalid Credentials",
    "locationType": "header",
    "location": "Authorization"
   }
  ],
  "code": 401,
  "message": "Invalid Credentials"
 }
}

即使访问令牌是有效的--如果我将sURL更改为https://www.googleapis.com/oauth2/v1/tokeninfo并运行该脚本，我将得到以下响应，显示一个有效的令牌：

{
"issued_to": "...",
 "audience": "...,
"scope": "https://www.googleapis.com/auth/calendar",
"expires_in": 2568,
"access_type": "offline"
}

如果我粘贴URL https://www.googleapis.com/calendar/v3/users/me/calendarlist?access_token=...在浏览器中，我从谷歌获得了一个有效的响应，列出了用户的日历

Answer 1

401：无效凭据

无效的授权标头。您正在使用的访问令牌已过期或无效。

访问令牌只能使用1小时。小时结束后，访问令牌过期，您需要使用刷新令牌来请求一个新令牌。

获取新acesss令牌的原始代码如下所示。关键字是grant_type=refresh_token，这告诉身份验证服务器您正在请求一个新的令牌。

https://accounts.google.com/o/oauth2/token
client_id={ClientId}.apps.googleusercontent.com&client_secret={ClientSecret}&refresh_token=1/ffYmfI0sjR54Ft9oupubLzrJhD1hZS5tWQcyAvNECCA&grant_type=refresh_token