求一段判断时间的dos批处理,分不多了，明天再补给

[nzperfect]

我需要一个dos批处理，放在windows 2003启动脚本里。
实现功能：
如果是周一到周五的7:30到17:30就call OfficeIP.bat
其它时间就call HomeIP.bat

目前我是用vbs来写的，想要一个dos的。

	Rem 根据时间来判断用哪个ip
	Dim strWeekday,strTime,WshShell:strWeekday=WeekDay(date())-1:strTime = Time()
	Set WshShell = WScript.CreateObject("WScript.Shell")  
	If strWeekDay >=1 and strWeekDay<=5 Then
		If strTime>=#07:30:00# And strTime<=#17:30:00# Then
			WshShell.Run("D:\seTiP\OfficeIP.bat")
		Else			 
			WshShell.Run("D:\seTiP\HomeIP.bat")
		End If
	Else  
		WshShell.Run("D:\seTiP\HomeIP.bat")
	End If

[sansanuser]

VBS高手啊。

本人之愚见，希望可以参考。

PC1启动时都会调用 server\bat\run.bat，
然后server，做好两个run的内容在本机。
再设置server上的计划任务来完成不同时间时内的run脚本调换。

意思客户端脚本都固定，但server端控制不同时间的run脚本更换。
我目前的企业就是这样做的。还管用！

[Forever_Young]

不知道楼主准备加多少分，呵呵，开个玩笑。

写了个代码，搂主看看中不。^_^

简单说明一下，星期一到星期五的7:30至17:30就执行OfficeIP.bat，其它时间包括星期六和星期日都执行HomeIP.bat

[code=BatchFile]
@echo off
set pweek=%date:~-1%
set ptime=%time:~0,2%%time:~3,2%
set count=0
for %%a in (一,二,三,四,五) do (
if %%a equ %pweek% (set /a count=%count%+1)
)
if %count% equ 1 (
if %ptime% geq 730 (if %ptime% leq 1730 (call OfficeIP.bat) else (call HomeIP.bat))
) else (
call HomeIP.bat
)
[/code]

[ljc007]

由于2楼的代码需要对%date%和%time%系统变量进行截取，不同的系统，变量的格式也可能不同，所以楼主最好先运行这个命令，然后把结果贴出来看看。
[code=BatchFile]echo %date% %time%[/code]

[nzperfect]

[Quote=引用 3 楼 ljc007 的回复:]
由于2楼的代码需要对%date%和%time%系统变量进行截取，不同的系统，变量的格式也可能不同，所以楼主最好先运行这个命令，然后把结果贴出来看看。
BatchFile codeecho%date% %time%
[/Quote]

显示：
2008-07-09 星期三 20:06:03.90

二楼的兄弟我试了，可以了,多谢！明天加分结贴! 最终押宝押得分好少了,呵呵

[Forever_Young]

[Quote=引用 3 楼 ljc007 的回复:]
由于2楼的代码需要对%date%和%time%系统变量进行截取，不同的系统，变量的格式也可能不同，所以楼主最好先运行这个命令，然后把结果贴出来看看。

BatchFile codeecho %date% %time%
[/Quote]

我又投机了一下，本来可以用别的办法直接获取星期和时间，但是我怕搂主是开机执行，效率估计要差那么一点点，所以就没采用，要不然代码还可以少两行，呵呵。

[nzperfect]

[Quote=引用 5 楼 Forever_Young 的回复:]
引用 3 楼 ljc007 的回复:
由于2楼的代码需要对%date%和%time%系统变量进行截取，不同的系统，变量的格式也可能不同，所以楼主最好先运行这个命令，然后把结果贴出来看看。

BatchFile codeecho %date% %time%


我又投机了一下，本来可以用别的办法直接获取星期和时间，但是我怕搂主是开机执行，效率估计要差那么一点点，所以就没采用，要不然代码还可以少两行，呵呵。
[/Quote]
我是在这里执行：
开始-->运行-->gpedit.msc-->计算机配置-->windows设置-->脚本(启动/关机)-->启动-->
-->添加-->浏览-->选择xx.bat-->确定

[Forever_Young]

倒了，这刷新要命，啥都看不见了

[Forever_Young]

这刷新，啥都看不见，郁闷

[nzperfect]

还好，看到的不是白屏，而是：-_-
“/”应用程序中的服务器错误。
由于目标机器积极拒绝，无法连接。 192.168.1.242:8086
说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。

异常详细信息: System.Net.Sockets.SocketException: 由于目标机器积极拒绝，无法连接。 192.168.1.242:8086

源错误:

执行当前 Web 请求期间生成了未处理的异常。可以使用下面的异常堆栈跟踪信息确定有关异常原因和发生位置的信息。

堆栈跟踪:

[SocketException (0x274d): 由于目标机器积极拒绝，无法连接。 192.168.1.242:8086]
System.Runtime.Remoting.Proxies.RealProxy.HandleReturnMessage(IMessage reqMsg, IMessage retMsg) +2668969
System.Runtime.Remoting.Proxies.RealProxy.PrivateInvoke(MessageData& msgData, Int32 type) +717
CSDN.Community.TopicFileDataCenter.TopicFileComponent.ReCreateTopic(ReplyGenerateData[] rgds, TopicGenerateData tgd) +0
CSDN.Community.TopicFileDataCenter.TopicFileDataCenterEntry.ReCreateTopic(TopicInfo topic, CommunityUser postUser, UserSectionProfile usp, ReplyInfo[] replies, CommunityUserCollection replyUsers, UserSectionProfileCollection replyUserProfiles) +598
CSDN.Community.PointForum.Services.BuildTopicManager.BuildTopic(ConfigInfo Forum, Guid topicId, String& topicUrl) +913
CSDN.Community.PointForum.WebControls.CreateTopicFilePage.OnLoad(EventArgs e) +704
System.Web.UI.Control.LoadRecursive() +47
System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint) +1436


版本信息: Microsoft .NET Framework 版本:2.0.50727.1433; ASP.NET 版本:2.0.50727.1433

[nzperfect]

说明： 每个帖子只能加分一次，加分后过期日延后15天！
加分： 100 (目前只能加100分)

晕倒，加分是固定的，不能改。。。我现在才78分可用分 .

[Forever_Young]

[Quote=引用 10 楼 perfectaction 的回复:]
说明： 每个帖子只能加分一次，加分后过期日延后15天！
加分： 100 (目前只能加100分)

晕倒，加分是固定的，不能改。。。我现在才78分可用分 .
[/Quote]

搂主别当真了，分只是在互相交流当中起个娱乐作用，添点乐子，呵呵。

[jerrytoshiba]

佛爱我羊 这种大公无私的精神令我们钦佩，实乃我辈效仿之楷模，我对你的敬佩犹如滔滔江水连绵无绝（以下省略2186.32字）：）

[nzperfect]

那我先结贴了,多谢Forever_Young,以后有机会补给你!