批处理如何获得网络时间？

pichuli1

假如把时间填入文本在放到网站上，如何去获取并作为变量呢。如果http://127.0.0.1/1.txt里写入时间20140101如何获取呢？

1. pushd %tmp%
   
2. (
   
3. echo Randomize
   
4. echo With CreateObject("Microsoft.XMLHTTP"^)
   
5. echo .open "get","http://open.baidu.com/special/time/?"^&Rnd*1e15,False
   
6. echo .send
   
7. echo t=DateAdd("s",CLng(Left(Split(.responseText,"baidu_time("^)(1^),10^)^),"1970-1-1 8:00"^)
   
8. echo WScript.echo DateValue(t^),Hour(t^)^&":"^&Minute(t^)^&":"^&Second(t^)
   
9. echo End With
   
10. )>gettime.vbs
    
11. for /f "tokens=1*" %%i in ('cscript //nologo gettime.vbs') do date %%i&time %%j
    
12. popd

复制代码

如何在以上的代码里获取到日期，格式为20140101。并设置为变量？

xxpinqz

1. 
   
2. @echo off
   
3. pushd %tmp%
   
4. (
   
5. echo Randomize
   
6. echo With CreateObject("Microsoft.XMLHTTP"^)
   
7. echo .open "get","http://open.baidu.com/special/time/?"^&Rnd*1e15,False
   
8. echo .send
   
9. echo t=DateAdd("s",CLng(Left(Split(.responseText,"baidu_time("^)(1^),10^)^),"1970-1-1 8:00"^)
   
10. echo WScript.echo right(year(t^),4^) ^& right("0" ^& month(t^),2^) ^& right("0" ^& day(t^),2^),Hour(t^)^&":"^&Minute(t^)^&":"^&Second(t^)
    
11. echo End With
    
12. )>gettime.vbs
    
13. for /f "tokens=1*" %%i in ('cscript //nologo gettime.vbs') do  date %%i&time %%j&set "日期=%%i"
    
14. set 日期
    
15. popd
    
16. pause
    

复制代码

pichuli1

回复 2# xxpinqz


    谢谢你的热心帮助，可能我把问题描述的有点模糊了，我的意思是我把时间放在一个文本了，比如在 http://127.0.0.1/1.txt 这个文本里内容是  aa20140101aa，我如何去获得20140101这个时间值？

DAIC

回复 3# pichuli1


    你现在的脚本里面调用那个vbs之后得到的格式是怎样的？