【求救】批处理获取网络时间，然后设置成系统时间

买个电池，修电脑卖电脑 的小店都有。

@echo off
cd /d "%tmp%"
(
echo With CreateObject^("Microsoft.XMLHTTP"^)
echo .open "get", "http://open.baidu.com/special/time/", False
echo .send
echo WScript.echo DateAdd^("s",CLng^(Left^(Split^(Split^(.responseText,"baidu_time("^)^(1^),")"^)^(0^),10^)^),"1970-1-1 8:00"^)
echo End With
)>gettime.vbs
for /f "tokens=1*" %%i in ('cscript //nologo gettime.vbs') do date %%i & time %%j
pause

这是VBS啊