«
»

vbscriptでmsxmlを利用してhttpアクセスする例です。
第一引数はアクセスするURL、第二引数はアクセスした内容を保存するファイル名です。

「Set OBJ_Http = WScript.CreateObject(“MSXML2.ServerXMLHTTP”)」の部分は、
「Set OBJ_Http = WScript.CreateObject(“Microsoft.XMLHTTP”)」としてもアクセス出来ます。

違いについてはMicrosoftのサポート情報を参照して下さい。
http://support.microsoft.com/kb/290761/ja

 


Option Explicit


  Dim OBJ_Args

  Set OBJ_Args = WScript.Arguments


  If OBJ_Args.Count <> 2 Then

    WScript.Echo "Usage: httpget URL Path"
    WScript.Quit 1


  Else

    HttpGet OBJ_Args(0),OBJ_Args(1)


  End If




Sub HttpGet(ByVal STR_URL, ByVal STR_Path)


  Const adTypeBinary = 1 'Binary
  Const adTypeText   = 2 'Text

  Const adSaveCreateNotExist  = 1
  Const adSaveCreateOverWrite = 2


  Dim OBJ_Http
  Dim OBJ_ADO

  Set OBJ_Http = WScript.CreateObject("MSXML2.ServerXMLHTTP")

  Call OBJ_Http.Open("GET", STR_URL, False)

  If Err.Number <> 0 Then

      WScript.Echo "エラー:" & Err.Description
      WScript.Quit 1

  End If

  OBJ_Http.Send

  If Err.Number <> 0 Then

    WScript.Echo "エラー:" & Err.Description
    WScript.Quit 1

  End If

  If OBJ_Http.status <> 200 Then

    WScript.Echo "Return Coad:" & OBJ_Http.status
    WScript.Quit 1

  End If


  Set OBJ_ADO = WScript.CreateObject("ADODB.Stream")
  
  OBJ_ADO.Type = adTypeBinary
  OBJ_ADO.Open
  OBJ_ADO.Position = 0

  OBJ_ADO.Write OBJ_Http.responseBody
  OBJ_ADO.SaveToFile STR_Path, adSaveCreateNotExist
  OBJ_ADO.Close

  Set OBJ_Http = Nothing
  Set OBJ_ADO  = Nothing


End Sub

This entry was posted by admin on 2011/10/03 at 00:44 under Windows, WSH. Tagged , , , , . You can leave a response, or trackback from your own site. Follow any responses to this entry through the RSS 2.0 feed.

56 Comments

  6. Speedpaste bestellen says:

    … [Trackback]

    […] Find More on to that Topic: dragon-ark.com/archives/564 […]

    2021/06/14, 22:39

  11. 3d drawing app says:

    … [Trackback]

    […] Read More on that Topic: dragon-ark.com/archives/564 […]

    2021/06/22, 17:29

  12. exchange online fiyat says:

    … [Trackback]

    […] Read More to that Topic: dragon-ark.com/archives/564 […]

    2021/06/27, 07:28

  13. hp sunucu servisi says:

    … [Trackback]

    […] There you can find 5705 additional Info on that Topic: dragon-ark.com/archives/564 […]

    2021/06/28, 14:03

  14. microsoft exchange online plan 1 says:

    … [Trackback]

    […] Find More to that Topic: dragon-ark.com/archives/564 […]

    2021/07/03, 18:31

  15. internet teknik servis says:

    … [Trackback]

    […] Here you can find 92036 more Info to that Topic: dragon-ark.com/archives/564 […]

    2021/07/03, 19:15

  16. lenovo servis says:

    … [Trackback]

    […] Read More Information here on that Topic: dragon-ark.com/archives/564 […]

    2021/07/12, 08:01

  17. https://www.ktvn.com/story/45176209/best-essay-writing-services-of-2021-in-depth-expert-review says:

    … [Trackback]

    […] Read More on to that Topic: dragon-ark.com/archives/564 […]

    2021/11/13, 02:29

  18. sagame says:

    … [Trackback]

    […] Read More Info here on that Topic: dragon-ark.com/archives/564 […]

    2021/11/13, 11:54

  19. safe cod vanguard cheats says:

    … [Trackback]

    […] Read More to that Topic: dragon-ark.com/archives/564 […]

    2021/11/20, 08:53

  20. https://www.valuewalk.com/the-best-essay-writing-services-top-5-reviewed-and-ranked/ says:

    … [Trackback]

    […] Information on that Topic: dragon-ark.com/archives/564 […]

    2021/11/20, 19:53

  21. relx says:

    … [Trackback]

    […] There you will find 42603 additional Info on that Topic: dragon-ark.com/archives/564 […]

    2021/11/27, 09:58

  22. 3precipitation says:

    1signatures

    2022/01/08, 11:42

  25. gay dating hole says:

    older black gay men dating sites https://gaypridee.com/

    2022/01/15, 00:54

  29. mega888 says:

    … [Trackback]

    […] There you can find 35946 more Info on that Topic: dragon-ark.com/archives/564 […]

    2022/01/16, 15:25

  31. ตรวจหวย says:

    … [Trackback]

    […] Find More Information here on that Topic: dragon-ark.com/archives/564 […]

    2022/01/27, 10:03

  50. บาคาร่า วอเลท says:

    … [Trackback]

    […] Read More on that Topic: dragon-ark.com/archives/564 […]

    2022/02/13, 21:42

  51. 【WSH】【vbscript】httpアクセスする(msxml) | Dragon-Ark says:

    Cheap Shared Proxies

    vbscriptでmsxmlを利用してhttpアクセスする例です。 第一引数はアクセスするURL、第二引数はア

    2022/04/26, 00:01

  52. 【WSH】【vbscript】httpアクセスする(msxml) | Dragon-Ark says:

    Buy Proxies List

    vbscriptでmsxmlを利用してhttpアクセスする例です。 第一引数はアクセスするURL、第二引数はア

    2022/04/27, 21:22

  53. 【WSH】【vbscript】httpアクセスする(msxml) | Dragon-Ark says:

    Private Proxy

    vbscriptでmsxmlを利用してhttpアクセスする例です。 第一引数はアクセスするURL、第二引数はア

    2022/04/29, 13:37

  54. 【WSH】【vbscript】httpアクセスする(msxml) | Dragon-Ark says:

    Proxies For Instagram

    vbscriptでmsxmlを利用してhttpアクセスする例です。 第一引数はアクセスするURL、第二引数はア

    2022/05/22, 04:30

  55. 【WSH】【vbscript】httpアクセスする(msxml) | Dragon-Ark says:

    Senuke Proxies

    vbscriptでmsxmlを利用してhttpアクセスする例です。 第一引数はアクセスするURL、第二引数はア

    2022/05/22, 22:01

  56. 【WSH】【vbscript】httpアクセスする(msxml) | Dragon-Ark says:

    Buy Http Proxies

    vbscriptでmsxmlを利用してhttpアクセスする例です。 第一引数はアクセスするURL、第二引数はア

    2022/05/29, 01:43

Leave a Reply

You must be logged in to post a comment.