sSource = "http://img.yahoo.co.jp/images/main7.gif" 'ダウンロード元
	sDest = "test.gif" 'コピー先

'	Set oHTTP = WScript.CreateObject("Msxml2.XMLHTTP")
	Set oHTTP = WScript.CreateObject("microsoft.xmlhttp")
	oHTTP.Open "GET", sSource, False
	oHTTP.Send

	Set Stream = WScript.CreateObject("Adodb.Stream")
	Const adTypeBinary = 1
	Const adSaveCreateNotExist = 1
	Const adSaveCreateOverWrite = 2
	Stream.Type = adTypeBinary
	Stream.Open
	Stream.Write oHTTP.responseBody
	Stream.Savetofile sDest, adSaveCreateOverWrite
	MsgBox "ダウンロード完了"