Vbscript csvript keep unlocked till time

unlocked.vbs

Sub forceCScriptExecution
  Dim Arg, Str
  If Not LCase( Right( WScript.FullName, 12 ) ) = "\cscript.exe" Then
    For Each Arg In WScript.Arguments
      If InStr( Arg, " " ) Then Arg = """" & Arg & """"
      Str = Str & " " & Arg
    Next
    CreateObject( "WScript.Shell" ).Run _
      "cscript //nologo """ & _
      WScript.ScriptFullName & _
      """ " & Str
    WScript.Quit
  End If
End Sub
forceCScriptExecution
set wsc = CreateObject("WScript.Shell")
' Set target end time (9 PM)
Dim targetHour
targetHour = 21
' Loop until the target end time is reached
Do While Hour(Now) < targetHour
 ' Move the mouse cursor to prevent the screen from locking
wsc.SendKeys ("{SCROLLLOCK 2}")
wscript.stdout.write "."
WScript.Sleep (60*1000)
Loop
' Cleanup and end the script
Set WshShell = Nothing
WScript.Quit