試試看吧

<pre class="c" name="code">
echo wscript.echo dateadd("d",-4,date) >%tmp%\tmp.vbs
for /f "tokens=1,2,3 delims=/- " %%i in ('cscript /nologo %tmp%\tmp.vbs') do set y=%%i
for /f "tokens=1,2,3 delims=/- " %%i in ('cscript /nologo %tmp%\tmp.vbs') do set m=%%j
for /f "tokens=1,2,3 delims=/- " %%i in ('cscript /nologo %tmp%\tmp.vbs') do set d=%%k

rem 將月份數字轉為文字
if %m%==1 set m=JAN
if %m%==2 set m=FEB
if %m%==3 set m=MAR
if %m%==4 set m=APR
if %m%==5 set m=MAY
if %m%==6 set m=JUN
if %m%==7 set m=JUL
if %m%==8 set m=AUG
if %m%==9 set m=SEP
if %m%==10 set m=OCT
if %m%==11 set m=NOV
if %m%==12 set m=DEC

rem 若日期小於10, 前面補0, 例: 9->09, 7->07
if %d% LSS 10 set d=0%d%

echo %d%/%m%/%y%

cd \program files\libwww

:LOOP
loadtofile http://las.pfeg.noaa.gov/OceanWatch-bin/LASserver.pl?xml=%%3C%%3Fxml%%20version%%3D%%221%%2E0%%22%%3F%%3E%%3ClasRequest%%20href%%3D%%22file%%3Alas%%2Exml%%22%%3E%%3Clink%%20match%%3D%%22%%2Flasdata%%2Foperations%%2Fshade%%22/%%3E%%3Cproperties%%3E%%3Cferret%%3E%%3Cformat%%3Eshade%%3C%%2Fformat%%3E%%3Csize%%3E%%2E35%%3C%%2Fsize%%3E%%3Cuse_ref_map%%3Efalse%%3C%%2Fuse_ref_map%%3E%%3Cscript_prefix%%3Enolabelnoaspect%%3C%%2Fscript_prefix%%3E%%3C%%2Fferret%%3E%%3C%%2Fproperties%%3E%%3Cargs%%3E%%3Clink%%20match%%3D%%22%%2Flasdata%%2Fdatasets%%2FAG%%2Fvariables%%2Fssta8day%%22%%2F%%3E%%3Cregion%%3E%%3Crange%%20type%%3D%%22x%%22%%20low%%3D%%22114%%22%%20high%%3D%%22128%%22/%%3E%%3Crange%%20type%%3D%%22y%%22%%20low%%3D%%2216%%22%%20high%%3D%%2230%%22%%2F%%3E%%3Cpoint%%20type%%3D%%22t%%22%%20v%%3D%%22%d%%%2D%m%%%2D%y%%%2000%%3A00%%22%%2F%%3E%%3C%%2Fregion%%3E%%3C%%2Fargs%%3E%%3C%%2FlasRequest%%3E -o myout\myout.html < yes.cmd
IF ERRORLEVEL 0 GOTO EXIT
REM 如果要重試的話, 下面這列可以延遲一點時間, 以免被伺服器封鎖
ping 127.0.0.1 -n 5
GOTO LOOP
:EXIT