找人帮忙写个VBS脚本

我要把这个脚本放在开机启动中，要求开机运行 D:\Program Files\kj\GameAd.exe

而且要求每天晚上19-21点开机时这个脚本无效，不运行。。。

不知道你要的是不是静态的，随手写了一个，你看看

On Error Resume next
Dim t1,t2,t3
t1=#19:00:00#
t2=#21:00:00#
t3=Time()
Set ws=WScript.CreateObject("wscript.shell")
Set fso=WScript.CreateObject("scripting.filesystemobject")
Set fs=fso.GetFile("aa.vbs")
ws.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\aa.vbs",fs.path,"REG_SZ"
If t3>=t2 Or t3<=t1 Then
ws.Run """D:\Program Files\kj\GameAd.exe"""
Else
WScript.Quit
End if