--today.vbs--
today=Year(Date()) & Right("0" & Month(Date()),2) & Right("0" & Day(Date()),2)
wscript.echo today
--yesterday.vbs--
yesterday=DateAdd("d",-1,date)
yesterday_=Year(yesterday) & Right("0" & Month(yesterday),2) & Right("0" & Day(yesterday),2)
wscript.echo yesterday_
D:\>cscript /nologo yesterday.vbs
20101020
--test.bat--
@echo off
for /f %%i in ('cscript /nologo today.vbs') do set TODAY=%%i
rem there blank space at "today" string,i don't konw why.
set JINTIAN=%TODAY: =%
echo 今天日期是：%JINTIAN%
for /f %%i in ('cscript /nologo yesterday.vbs') do set YESTERDAY=%%i
set ZUOTIAN=%YESTERDAY: =%
echo 昨天日期是：%ZUOTIAN%
D:\>TEST.BAT
今天日期是：20101021
昨天日期是：20101020