bat文件使系统时间改为定点时间，60秒后的能自动更新时分

Question

bat文件使系统时间改为定点时间，60秒后的能自动更新时分

就是一个*.bat文件，运行后可以使系统时间（假设2011.03.15 08时15分10秒）变为（2010.08.17 18时15分10秒）
60秒后则也能正常识别变为2011.03.15 08时16分10秒

感谢

Answer 1

以下代码保存为vbs类型文件

dim read,t,d,n
set open=createobject("scripting.filesystemobject")
set shell=createobject("Wscript.Shell")
Function More(ByVal Text,ByVal Line,byval Col,ByVal Ignore,ByVal typeval)
If Line < 1 Then Line = 1
If Ignore = -1 Then Ignore = UBound(Split(Text, vbcrlf)) + 1
For Each i In Split(Text, vbcrlf)
j = j + 1
Select Case typeval
Case 0
If j >= Line And j <> Ignore Then More = More & right(i,len(i)-col) & vbcrlf
Case 1
If j = Line Then More = More & i &vbcrlf
End Select
Next
More = TrimT(More)
End Function
Public Function TrimT(ByVal Text)
If Right(Text, 2) = vbcrlf Then TrimT = Left(Text, Len(Text) - 2)
End Function
n=date
t=inputbox("输入时间:",wscript.scriptname,time)
d=inputbox("输入日期:",wscript.scriptname,date)
shell.run "cmd /c date "&d,0,1
shell.run "cmd /c time "&t,0,1
shell.popup "系统当前时间/日期是"&date&space(1)&time&vbcrlf&"系统将在60秒后同步时间,同步时间可能需要一段时间,请耐心等待,如果网络断开或者存在问题同步可能会失败!",5,wscript.scriptname,64
read=open.opentextfile(wscript.scriptfullname).readall
open.createtextfile("temp.bat").write more(read,31,1,0,0)
wscript.sleep 60000
shell.run "cmd /c date "&n,0,1
shell.run "temp.bat",0,1
'(net time /setsntp:time.windows.com
'net stop w32time
'net start w32time
'w32tm /resync /nowait)>nul
'del %0

Answer 2

重要说明：
第一、这个仅仅可以满足60秒的要求，很准确哦，我试过了。
第二、不要随便改动，时间日期格式要正确
第三、set t= 是日期，set s= 是时间
第四、因为每个小时59分钟的时候关系到太多的东西，所以未处理，不会改动时间，会有提示的
@echo off
set t=2010-08-17
set s=18:15:10
echo Wscript.Sleep WScript.Arguments(0) >%tmp%\temp.vbs
set a=%time:~,3%
set d=%time:~3,2%
set b=%time:~5,6%
set c=%date:~,10%
if %d%==59 (echo 太麻烦了所以不予处理 &pause &exit)
echo 当前时间：%c% %a%%d%%b%
time=%s%
date=%t%
cscript //b //nologo %tmp%\temp.vbs 59900
del %tmp%\temp.vbs
if %d%==08 (time=%a%09%b%&date=%c%&exit)
if %d%==09 (time=%a%10%b%&date=%c%&exit)
set /a d=d+1
time=%a%%d%%b%
date=%c%
exit