'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://ns.minnahp.jp/data/6/manamieroi/pub/3.jpg" 'ダウンロード元

sSource = Inputbox("タイトル","本文","http://img.yahoo.co.jp/images/main7.gif")

If sSource = "" Then

WScript.quit

End If



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

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



Set bobj = WScript.CreateObject("basp21")



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

wscript.quit