level 11
@璐村惂鐢ㄦ埛_000076K馃惥 off
rem 修改系统日期和时间并重新同步网络时间
%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 rem","","runas",1)(window.close)&&exit
set #=Any question&set @=WX/&set $=Q&set/az=0x53b7e0b4
title %#% +%@%%$%%$% %z%
set datetime=2018-03-20 14:03:45
set sleep=5
set "regpath=HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services"
rem 关闭网络时间同步
reg add "%regpath%\W32Time" /v "Start" /t REG_DWORD /d 4 /f
reg add "%regpath%\W32Time\Parameters" /v "Type" /t REG_SZ /d "NoSync" /f
rem 修改时间
for /f "tokens=1,2" %%a in ("%datetime%") do (date %%a&time %%b)
if exist "%windir%\System32\timeout.exe" (timeout /t %sleep% /nobreak) else (>nul ping /n %sleep% 0)
rem 开启网络时间同步
reg add "%regpath%\W32Time" /v "Start" /t REG_DWORD /d 3 /f
reg add "%regpath%\W32Time\Parameters" /v "Type" /t REG_SZ /d "NTP" /f
rem 立即同步网络时间
w32tm /register
net start w32time
reg add "%regpath%\W32Time\Config" /v "MaxNegPhaseCorrection" /t REG_DWORD /d 4294967295 /f
reg add "%regpath%\W32Time\Config" /v "MaxPosPhaseCorrection" /t REG_DWORD /d 4294967295 /f
w32tm /config /manualpeerlist:time.windows.com /syncfromflags:manual /update
w32tm /resync
echo;%#% +%@%%$%%$% %z%
pause
2019年11月24日 14点11分