批处理+vbs 上班自动打卡

使用批处理来判断时间，然后调用vbs登录考勤系统，并打卡。（打卡时间随机，被发现几率很低）
moring.bat正文如下：

@echo off

set /a h=9

set /a m=%random%%%15

set rt=%h%:%m%
echo %rt%

:head

if %rt% geq %time:~0,2%:%time:~3,2% (goto body) else goto head

:body

echo start work

1.vbs

pause

1.vbs正文如下：

set a =WScript.CreateObject("WScript.Shell")

a.Run ("") 

WScript.Sleep 5000 

a.SendKeys "{ENTER}"

a.Run ("/general/attendance/personal/duty/submit.php?REGISTER_TYPE=1")