Scheduling a task using VBScript at specific mentioned time.

Question

Hello,
I have a script which needs to be updated/debugged to start my task at the specific date and time (Currently, this script executes if the scheduling is done for that day, i wanted to delay the task to start by next day it doesn't work,something is wrong,
as its not launching at the particular time instead some other time is considered for launching the task).
Below is the Function:
Function TaskScript
    Dim scheduledTime, waited
    Dim objShell
    Set objShell = Wscript.CreateObject("WScript.Shell")
    Dim shour, sminute
    shour = Inputbox("Enter hour : (in 24h format)." & vbCrLf & "For example: 3 PM should be 15")
    sminute = Inputbox("Enter Minute for scheduling")
    Do
      scheduledTime = Int(Now) + TimeSerial(shour, sminute, 00)
      waited = DateDiff("S", Now, scheduledTime)
      msgbox "Task Activated"
      If waited <= 600 Then
         Wscript.Sleep waited * 1000
         objShell.run Launch_DB
         Wscript.Quit
      Else
         WScript.Sleep 590 * 1000
      End If
    Loop
End Function
For Example : If i call the above function and mention shour = 13 and sminute = 00. the script exactly launches at 13h00.
Question :
If i wanted to execute my task next day, What should be the shour and sminute value? (I tried giving it like adding 24 (to say not today) + 13 (the next day) = 37 as shour, it doesn't invoke at next day 13h00, instead its delayed)
Any help would be really appreciated.
Thanks in Advance.
sbk

Answer 1

Organizational or dis-organizational. You can wait on a time like this.
''Get todays adjusted start Time
dDateTIme = CDate(CStr(Date) & " 13:00")
'' add 1 to get tomorrows date
dLaunchTime=DateAdd("d",1, dDateTime)
'' wait in loop until time arrives.
While Now < dLaunchTime
WScript.Sleep 60 * 1000
Wend
'' run your program and quit.
Wscript.CreateObject("WScript.Shell").Run "notepad.exe"
Simple, uncomplicated and never fails although I wouldn't rely on simple VBScript for anything complicated.  It will create the illusion to your boss that you are hard at work after lunch the next day.  Better hope he doesn't have a camera focused
on you.
¯\_(ツ)_/¯