'http://www.hi-ho.ne.jp/babaq/basp21.html

'http://www.mf10.com/Yama-D/blog/index.php?UID=1134541187

'http://tv.2ch.net/zurui/kako/1035/10359/1035987503.html



Set Fs = WScript.CreateObject("Scripting.FileSystemObject")



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

sSource = "http://ns.minnahp.jp/data/6/manamieroi/pub/3.jpg" 'ダウンロード元

sDest = "test.gif" 'コピー先

sRoot=Fs.BuildPath(Fs.GetParentFolderName(WScript.ScriptFullName),"\") 'スクリプトのあるフォルダ



'wscript.echo sRoot



Set bobj = WScript.CreateObject("basp21")



'test = "-d " & sRoot & " " & sSource

'wscript.echo test

'rc = bobj.W3get(test)



rc = bobj.W3get("-d " & sRoot & " " & sSource)

'rc = bobj.W3get("-d G:\Bsmtp20070629-587\ http://i.yimg.jp/images/mht/main14.gif")

'wscript.echo rc '戻り値

wscript.quit