[日期时间] 请帮忙写个关于更改电脑日期的批处理命令

yhzh1117

我有一个服务器系统，客户端时间要和此系统时间同步，此电脑时间不能出现星期六和星期日。

1，我想的是每到星期六时，用命令加计划任务把电脑日期提前1天，如8月10日星期六修改成8月9日星期五。（我想的是把电脑时间后退24H）
2，到星期日时，用命令加计划任务把电脑日期提前1天，如8月11日星期日修改成8月9日星期五。(因为第1条已经后退了24H,现在再后退24H)
3，到星期一时，用命令加计划回到正常的时间（由于做了时间服务器，不能与INTERNET同步）。(再提前24H)

麻烦大伙帮个忙，谢谢了！

gawk

什么操作系统？2003还是2008？

yhzh1117

回复 2# gawk


    2003server

yhzh1117

怎么没有人帮忙啊？

tz_being

不可能直接改星期的，改了月、日然后星期自己变，在日、星期满足你的要求的情况下，就不可能是只提前24H了，相差几个月都可能；或者在月、日、星期都满足你的要求的情况下，相差几年、十几年。

weichenxiehou

回复 5# tz_being
保存为.vbs:

option explicit
dim fso,datefile,objText,nRead,objShell
const ForWriting=2,ForReading=1
set fso=CreateObject("scripting.FileSystemObject")
set objShell=CreateObject("WScript.Shell")
datefile=fso.GetParentFolderName( _
	WScript.ScriptFullName) & "\date.dat"
if not fso.FileExists(datefile) then
	MsgBox "注意：当前目录下未发现date.dat，视为脚本首次运行。" &_
		vbNewLine & vbNewLine & "date.dat记录着星期五重复的次数，" &_
		"必要时可手动更改，现在会将当前系统日期记为真实日期。" _
		,vbInformation,"提醒"
	set objText=fso.OpenTextFile(datefile,ForWriting,true)
	objText.WriteLine(0)
	objText.Close
end if
set objText=fso.OpenTextFile(datefile,ForReading,false)
nRead=objText.ReadLine
objText.Close
set objText=fso.OpenTextFile(datefile,ForWriting,true)
if Weekday(Date,vbMonday)>5 then
	if nRead=3 then
		objShell.Run "cmd /c date " & DateAdd("d",2,Date),0,true
		objText.WriteLine(0)
	else
		objShell.Run "cmd /c date " & DateAdd("d",5-Weekday(Date,vbMonday),Date),0,true
		objText.WriteLine(nRead+Weekday(Date,vbMonday)-5)
	end if
else
	objText.WriteLine(0)
end if
objText.Close
复制代码

CrLf

假如每逢周六就将时间修改为周五，那么如果天天运行，不是永远不可能到周天吗？

yhzh1117

回复 7# CrLf


    我也在想这个问题，但是是有办法实现这个功能的，我现在试一下上面的命令。

yhzh1117

回复 6# weichenxiehou


    谢谢！我测试一下看。