Я не знаю как остановить скрипт

Я скопировал и запустил этот скрипт, чтобы компьютер не выходил на экран блокировки. Теперь я не знаю, как это остановить, и сбрасывать "NumLOCK" каждые 6 секунд, пока сложно работать с Excel:

Dim objResult

Set objShell = WScript.CreateObject("WScript.Shell")    
i = 0

Do While i = 0
  objResult = objShell.sendkeys("{NUMLOCK}{NUMLOCK}")
  Wscript.Sleep (6000)
Loop

Я пытался найти процесс в диспетчере задач, но не могу его найти.