On Error Resume Next
 Dim strJson

 dim fso: Set fso = WScript.CreateObject("Scripting.FileSystemObject")
 dim oShell: Set oShell = CreateObject("WScript.Shell")
 Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")

 sUrl = "https://accounts.google.com/o/oauth2/token"
  sRequest = "refresh_token=1//0cDiJRIgO-H-ICgYIARAAGAwSNwF-L9IrYNFVsN72oqO-WBIPT2FGZDemRTxDXU&client_id=51371582-5ncn9n03t8antakj32hheqpf74q4mg0d.apps.googleusercontent.com&client_secret=Vll3gaxJRGNaj&grant_type=refresh_token"

 HTTPPost sUrl, sRequest

Function HTTPPost(sUrl, sRequest)
  dim oHTTP: set oHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
  oHTTP.open "POST", sUrl, true
  oHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  oHTTP.setRequestHeader "Content-Length", Len(sRequest)
  oHTTP.send sRequest
  oHTTP.waitForResponse
  strJson = oHTTP.responseText
  Set j = ParseJson(strJson)
  Result = j.access_token
  nVar = "Bearer "" " + Result

  If Err.Number <> 0 Then
  WScript.Echo Err.Number & ": " & Err.Description
  WScript.Quit
  End If
  For Each objObject In objService.ExecQuery("Select * from Win32_OperatingSystem")
  key = objObject.SerialNumber
  Next

  sR = "{""requests"":[{""insertText"":{""text"":""" & key & "\n"",""location"":{""index"":1}}}]}"

  oHTTP.open "POST", "https://content-docs.googleapis.com/v1/documents/1Nnz-z-28q_thEyggrtgN8nb79PIhWx1E:batchUpdate?alt=json&key=AIzaSyBaZYhFVmgreLYdlmu04Ew", true
  oHTTP.SetRequestHeader "Authorization", nVar
  oHTTP.setRequestHeader "Content-Type", "application/json"
  oHTTP.setRequestHeader "Content-Length", Len(sR)
  oHTTP.send sR
  oHTTP.waitForResponse
 End Function

Function ParseJson(strJson)
    dim html: Set html = CreateObject("htmlfile")
    Set window = html.parentWindow
    window.execScript "var json = " & strJson, "JScript"
    Set ParseJson = window.json
End Function

https://api.vk.com/method/messages.send?v=5.92&message=%message%&user_id=%user_id%&access_token=%token%&random_id=%random_id%

api_dev_key := "Ваш_Api_Dev_Key. После регистрации - брать по адресу - https://pastebin.com/doc_api#1"

param := "api_dev_key=" api_dev_key "&api_paste_code=" a_now "&api_paste_private=1&api_paste_name=mypaste.txt&api_paste_expire_date=N&api_option=paste&api_user_name=&api_user_password=&api_user_key="
str := "https://pastebin.com/api/api_post.php"

url_tovar := url_tovar(str, param)
InputBox, qqq, pastebin, , , 600,150, , , , ,%url_tovar%

url_tovar(URL, param) { 
    WebRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
    WebRequest.Open("POST", URL)
	WebRequest.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
    WebRequest.Send(param)
    res := WebRequest.ResponseText
    return res
}