VBS在固定时间段里定时关闭windows下的程序

刚写了一个vbs脚本，定时关闭windows下的程序，在规定的时间段里关闭程序，超过这段时间vbs可以自己退出或者不退出。

dim CurrentTime 

do 

CurrentTime = Now() - Date() 

if CurrentTime > 0.5625 then '0.5625下午1点半，0.39583上午9点半；分钟/全天分钟 

 if CurrentTime <0.6458 then '0.64583下午三点半，0.40625上午9点45 

  createobject("Wscript.Shell").run "taskkill /f /im chrome.exe", 0 'chrome.exe可以换成其他想关闭的程序

 else 

  createobject("Wscript.Shell").run "taskkill /f /im wscript.exe", 0 '不想退出vbs的可以把这句去掉 

 end if 

end if 

wscript.sleep 10000 

loop