この質問の回答での余禄。 url = ... Set xhr = CreateObject("MSXML2.ServerXMLHTTP") xhr.Open "GET", url, False xhr.Send If xhr.Status < 400 Then WScript.Echo xhr.responseText End If 同期モードになるのは VBScript なので、しゃあない。プロクシ…