[VBScript]HTTPのPOSTリクエスト

'
' HTTPのPOSTリクエスト
'

Option Explicit


Dim oHttpRequest
Dim sURL
Dim sPostData

sURL = "URL"
sPostData = "POSTデータ"

Set oHttpRequest = WScript.CreateObject("MSXML2.XMLHTTP.3.0")

Call oHttpRequest.Open("POST", sURL, False)
Call oHttpRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
Call oHttpRequest.Send(sPostData)

WScript.Echo(oHttpRequest.responseText)

Set oHttpRequest = Nothing