| ' ***********************************************************
' クライアント用オブジェクト
' ***********************************************************
Set objHTTP = Wscript.CreateObject("MSXML2.XMLHTTP")
' ***********************************************************
' クッキーが自動的に受け渡しされている事を確認するテスト
' ***********************************************************
Call objHTTP.Open("GET","http://localhost/web/test/sv1.php",False)
Call objHTTP.Send("")
' ***********************************************************
' 全てのヘッダ( クッキーが含まれる )
' ***********************************************************
strHeaders = objHTTP.getAllResponseHeaders()
Wscript.Echo strHeaders
' ***********************************************************
' このレスポンスにクッキーがセットされている事を確認
' ***********************************************************
Call objHTTP.Open("GET","http://localhost/web/test/sv2.php",False)
Call objHTTP.Send("")
Wscript.Echo objHTTP.responseText
| |