有个需求,需要每天定时执行下某个任务,一天一次。由于工作机器环境问题,没有办法设置windows 定时任务。查找资料并完成如下脚本。
功能:每天定时执行一次任务。
复制如下脚本,到一个test.vbs文件
Option Explicit Dim sysTime,sysHour,sysMinute,userTime,userHour,userMinute '设置的时间 userTime="9:01:01" userTime=Split(userTime,":") userHour=userTime(0) userMinute=userTime(1) Do Do sysTime=Split(Split(Now()," ")(1),":") sysHour=sysTime(0) sysMinute=sysTime(1) Select Case True Case sysHour=userHour If sysMinute=userMinute Then Exit Do End Select '等待50秒,防止同一分钟执行2次,另外一方面如果频繁执行,会消耗机器资源 WScript.sleep 50000 Loop '设置小时和分钟和系统时间都相等时,执行命令 wscript.createobject("wscript.shell").run "notepad.exe" '执行完了,可以休息一下 WScript.sleep 50000 loop