VBS Code to Get AccessToken

'On Error Resume Next

Dim Url
Dim HttpRequest
Dim Response
Dim ResponseStatus

Dim ApiKey
Dim ApiSecret
Dim RequestToken
Dim Checksum
Dim PostBody

'User Variables
Url = "https://api.kite.trade/session/token"
ApiKey = "xxxxxuyspkxxxq4r"
ApiSecret = "vklx4wsjxxxxxxxx1kn3dglkmt"
RequestToken = "eKq2zxxxxxxxxgXKcKOXgC9TJk"
Checksum = "a6a730fb02dcxxxxx48c7fd890ce054071a598d"
PostBody = "api_key=" & ApiKey & "&request_token=" & RequestToken & "&checksum=" & Checksum

'HTTP Request
Set HttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
HttpRequest.Open "POST", Url, False

'Headers
HttpRequest.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
HttpRequest.setRequestHeader "X-Kite-Version", "3"

'POST
HttpRequest.Send(PostBody)

'Response
Response = HttpRequest.ResponseText
ResponseStatus = HttpRequest.Status 'OK : 200

MsgBox "Response: " & Response & vbCrLf & vbCrLf & "Code: " & ResponseStatus & vbCrLf & "Error: " & Err.Description, 0 + 64, "Howutrade"
Set HttpRequest = Nothing