Back to Collection Items
Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)
' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http")
set http = CreateObject("Chilkat.Http")
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.HttpRequest")
set req = CreateObject("Chilkat.HttpRequest")
req.HttpVerb = "POST"
req.Path = "/services/oauth2/token"
req.ContentType = "multipart/form-data"
req.AddParam "response_type","device_code"
req.AddParam "client_id","device_code{{clientId}}"
req.AddParam "format","device_code{{clientId}}json"
req.AddParam "scope","device_code{{clientId}}jsonfull refresh_token"
' resp is a Chilkat.HttpResponse
Set resp = http.SynchronousRequest("login.salesforce.com{{site}}",443,1,req)
If (http.LastMethodSuccess = 0) Then
outFile.WriteLine(http.LastErrorText)
WScript.Quit
End If
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sbResponseBody = CreateObject("Chilkat.StringBuilder")
success = resp.GetBodySb(sbResponseBody)
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set jResp = CreateObject("Chilkat.JsonObject")
success = jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = 0
outFile.WriteLine("Response Body:")
outFile.WriteLine(jResp.Emit())
respStatusCode = resp.StatusCode
outFile.WriteLine("Response Status Code = " & respStatusCode)
If (respStatusCode >= 400) Then
outFile.WriteLine("Response Header:")
outFile.WriteLine(resp.Header)
outFile.WriteLine("Failed.")
WScript.Quit
End If
' Sample JSON response:
' (Sample code for parsing the JSON response is shown below)
' {
' "user_code": "<user_code>",
' "device_code": "<device_code",
' "interval": integer,
' "verification_uri": "https://<my_domain>/setup/connect"
' }
' Sample code for parsing the JSON response...
' Use this online tool to generate parsing code from sample JSON: Generate JSON Parsing Code
user_code = jResp.StringOf("user_code")
device_code = jResp.StringOf("device_code")
interval = jResp.IntOf("interval")
verification_uri = jResp.StringOf("verification_uri")
outFile.Close
Curl Command
curl -X POST
--form 'response_type=device_code'
--form 'client_id=device_code{{clientId}}'
--form 'format=device_code{{clientId}}json'
--form 'scope=device_code{{clientId}}jsonfull refresh_token'
https://login.salesforce.com{{site}}/services/oauth2/token
Postman Collection Item JSON
{
"name": "Device Flow 1",
"event": [
{
"listen": "test",
"script": {
"exec": [
"const jsonData = pm.response.json();",
"const context = pm.environment.name ? pm.environment : pm.collectionVariables;",
"context.set(\"_deviceCode\", jsonData.device_code);",
""
],
"type": "text/javascript"
}
}
],
"request": {
"auth": {
"type": "noauth"
},
"method": "POST",
"header": [
],
"body": {
"mode": "formdata",
"formdata": [
{
"key": "response_type",
"value": "device_code",
"type": "text"
},
{
"key": "client_id",
"value": "{{clientId}}",
"type": "text"
},
{
"key": "format",
"value": "json",
"type": "text"
},
{
"key": "scope",
"value": "full refresh_token",
"type": "text"
}
]
},
"url": {
"raw": "{{url}}{{site}}/services/oauth2/token",
"host": [
"{{url}}{{site}}"
],
"path": [
"services",
"oauth2",
"token"
]
}
},
"response": [
{
"name": "Successful Device Flow 1",
"originalRequest": {
"method": "POST",
"header": [
],
"body": {
"mode": "formdata",
"formdata": [
{
"key": "response_type",
"value": "device_code",
"type": "text"
},
{
"key": "client_id",
"value": "{{clientId}}",
"type": "text"
},
{
"key": "format",
"value": "json",
"type": "text"
},
{
"key": "scope",
"value": "full refresh_token",
"type": "text"
}
]
},
"url": {
"raw": "{{url}}{{site}}/services/oauth2/token",
"host": [
"{{url}}{{site}}"
],
"path": [
"services",
"oauth2",
"token"
]
}
},
"status": "OK",
"code": 200,
"_postman_previewlanguage": "json",
"header": [
{
"key": "Date",
"value": "Thu, 16 Nov 2023 15:29:39 GMT"
},
{
"key": "Strict-Transport-Security",
"value": "max-age=63072000; includeSubDomains"
},
{
"key": "X-Content-Type-Options",
"value": "nosniff"
},
{
"key": "X-XSS-Protection",
"value": "1; mode=block"
},
{
"key": "X-Robots-Tag",
"value": "none"
},
{
"key": "Cache-Control",
"value": "no-cache,must-revalidate,max-age=0,no-store,private"
},
{
"key": "Expires",
"value": "Thu, 01 Jan 1970 00:00:00 GMT"
},
{
"key": "X-ReadOnlyMode",
"value": "false"
},
{
"key": "Content-Type",
"value": "application/json;charset=UTF-8"
},
{
"key": "Vary",
"value": "Accept-Encoding"
},
{
"key": "Content-Encoding",
"value": "gzip"
},
{
"key": "Transfer-Encoding",
"value": "chunked"
}
],
"cookie": [
],
"body": "{\n \"user_code\": \"<user_code>\",\n \"device_code\": \"<device_code\",\n \"interval\": integer,\n \"verification_uri\": \"https://<my_domain>/setup/connect\"\n}"
}
]
}
