[ 中级 ]批处理网络校时：将本机时间与北京时间同步

@echo off&setlocal enabledelayedexpansion&cls
path=%path%;%~dp0.\command\第三方命令行程序
::==============================================================
for /f "tokens=3 delims= " %%a in ('curl time.nist.gov:13') do (
set "hh=1%%a"
set /a "h=(!hh:~0,3!%%100+8)%%24"
echo !h!!hh:~-6!|time
)
::==============================================================
:end
echo 按任意键退出&pause>nul
goto:eof
复制代码

@echo off&setlocal enabledelayedexpansion&cls
::==============================================================
for /f "skip=3 tokens=2*" %%i IN ('REG QUERY "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v Cache') do set ieTmp=%%j
call:extmpPath %ieTmp% ieTmp
echo IE临时文件目录=%ieTmp%
call start "IEXPLORE.EXE" "http://time.nist.gov:13"
ping /n 10 127.1>nul
for /f "tokens=* delims= " %%i in ('dir /s /b /o-d "%ieTmp%"\*time.nist*') do (
for /f "tokens=3 delims= " %%a in ('type "%%i"') do (
set hh=1%%a
set /a "h=(!hh:~0,3!%%100+8)%%24"
echo !h!!hh:~-6!|time
)
goto end
)
::==============================================================
:end
echo 按任意键退出&pause>nul
goto:eof
:extmpPath
set %2=%1
goto :eof
复制代码

@echo off&setlocal enabledelayedexpansion&cls
path=%path%;G:\DOS\command\第三方命令行程序
::==============================================================
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /v "settime" /t REG_SZ /d """"%~f0"""" /f
:loop
sc QUERY RpcSs|find /i "RUNNING">nul&&echo 网络已连接||echo 网络未连接&&ping /n 2 127.1>nul&&goto loop
ping /n 2 www.google.com|find /i "Reply from">nul&&echo 网络已连接||echo 网络未连接&&ping /n 2 127.1>nul&&goto loop
pause
set "jan=1"&set "feb=2"&set "mar=3"&set "apr=4"&set "may=5"&set "jun=6"&set "jul=7"&set "aug=8"&set "sept=9"&set "oct=10"&set "nov=11"&set "dec=12"
for /f "tokens=1,2,3,4 delims= " %%a in ('curl -s stdtime.gov.hk:13') do (
echo 网络时间: %%a-!%%b!-%%c %%d
echo %%d|time
echo %%c-!%%b!-%%a|date
)
::==============================================================
:end
echo 按任意键退出&pause>nul
goto:eof
复制代码

@echo off
::检查是否支持curl
(curl --help >nul 2>nul) || (echo;打不开curl.exe,请先下载此文件&goto :eof) 

::取得当前时间并设置
for /f "tokens=4" %%a in ('curl -s stdtime.gov.hk:13') do echo 当前北京时间%%a&time %%a
pause
复制代码

for /f "tokens=6" %%a in ('echo quit^|nc www.time.ac.cn 80^|find "GMT"') do echo %%a
复制代码