Source/VBS/HttpSend

Option Explicit
' ============================================================================ '
'  HTTPメソッドテスト (HttpSendTest.vbs)
' ============================================================================ '

' 送信するURL とID/PW
Const SEND_URL="https://example.com/TEST/test.txt"
Const USERNAME="username"
Const PASSWORD="password"

' HTTPメソッド HEAD/GET/POST/PUT/DELETE
Const METHOD="HEAD"

' 送信データ ※POST/PUT でのみ有効
Const SENDDATA="TEST DATA"


Dim xmlhttp
'Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP.6.0")

' SSL証明書でエラーを検知した場合の動作(ServerXMLHTTP)
xmlhttp.setOption 2, 13056 ' 証明書のエラーを無視する

' プロキシサーバ(ServerXMLHTTP 6.0以上)
' 第一引数：プロキシ構成(0:デフォルト構成, 1:すべてのHTTPとHTTPSで直接接続, 2:プロキシサーバを指定)
' 第二引数：プロキシサーバ、第三引数：バイパスリスト
xmlhttp.setProxy 0, "127.0.0.1:8080", "localhost;127.0.0.1"
'xmlhttp.setProxyCredentials username, password ' プロキシ認証


' 接続
xmlhttp.Open METHOD, SEND_URL, False, USERNAME, PASSWORD
xmlhttp.Send SENDDATA

' 結果
WScript.Echo METHOD & " status: " & xmlhttp.status & " " & xmlhttp.statusText
WScript.Echo METHOD & " Headers:" & vbNewLine & xmlhttp.getAllResponseHeaders
WScript.Echo METHOD & " Response:" & vbNewLine & xmlhttp.responseText

WScript.Quit

' ============================================================================ '
' HTTP POST/PUT Send File

' 送信データファイル
Const SENDFILE=""

' ----------------
Const adTypeBinary = 1 ' 
Const adTypeText   = 2 ' 

Dim stream
Set stream = CreateObject("ADODB.Stream")

' 送信するファイルの読み込み
stream.Open
stream.Type = adTypeText
stream.Charset = "UTF-8"
stream.LoadFromFile LOADFILE
stream.Position = 0

If stream.Type = adTypeText Then
  WScript.Echo "FILE DATA:" & vbNewLine & stream.ReadText
  stream.Position = 0
End If

' 接続
xmlhttp.Open METHOD, SEND_URL, False, USERNAME, PASSWORD
xmlhttp.Send stream

' 結果
WScript.Echo METHOD & " status: " & xmlhttp.status & " " & xmlhttp.statusText

WScript.Quit
' ============================================================================ '
'   End Of File (HttpSendTest.vbs)                                             '
' ============================================================================ '