看下面代码:
On Error Resume Next
Dim FSO, WS, DTValue, Program
Set FSO = Wscript.CreateObject("Scripting.FileSystemObject")
Set WS = Wscript.CreateObject("Wscript.Shell")
DTValue = "2013-12-2 7:15:23"
'你要几点打开(YYYY-MM-DD HH:MM:SS 年-月-日 时:分:秒)
Program = "C:\某个.bat"
'你要打开的bat文件
Do Until Date & " " & Time = DTValue
Loop
WS.run FSO.GetSpecialFolder(1) & "\cmd.exe /C " + Chr(34) & Program & Chr(34), 0
'看上面那行的最后一个字符",0",就是隐藏运行bat的.如果你不要隐藏运行它请把",0"去掉.
请根据代码中的提示修改一些必要的属性.