批处理之家 - Powered by Discuz! Board

标题: [日期时间] 请帮忙写个关于更改电脑日期的批处理命令 [打印本页]

作者: yhzh1117 时间: 2013-8-7 10:55 标题: 请帮忙写个关于更改电脑日期的批处理命令

本帖最后由 yhzh1117 于 2013-8-7 14:25 编辑

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

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

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

作者: gawk 时间: 2013-8-7 14:40

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

作者: yhzh1117 时间: 2013-8-7 14:45

回复 2# gawk

2003server

作者: yhzh1117 时间: 2013-8-8 06:47

怎么没有人帮忙啊？

作者: tz_being 时间: 2013-8-8 17:45

本帖最后由 tz_being 于 2013-8-8 17:46 编辑

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

作者: weichenxiehou 时间: 2013-8-8 21:26

本帖最后由 weichenxiehou 于 2013-8-8 21:38 编辑

回复 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 时间: 2013-8-9 13:53

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

作者: yhzh1117 时间: 2013-8-9 15:42

回复 7# CrLf

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

作者: yhzh1117 时间: 2013-8-9 15:43

回复 6# weichenxiehou

谢谢！我测试一下看。

欢迎光临批处理之家 (http://bbs.bathome.net/)

Powered by Discuz! 7.2