Notepad Victims

Found this code on anther forum that lights up the numlock, scrolllock, and Capslock lights.
But i have turned it into this:
Set wshShell =wscript.CreateObject("WScript.Shell")



WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500

wshshell.sendkeys "%"
wshshell.sendkeys "O"
wshshell.sendkeys "F"
wshshell.sendkeys "{TAB}"
wshshell.sendkeys "{TAB}"
wshshell.sendkeys "{DOWN}"
wshshell.sendkeys "{DOWN}"
wshshell.sendkeys "{DOWN}"
wshshell.sendkeys "{DOWN}"
wshshell.sendkeys "{ENTER}"
wshshell.sendkeys "%"
WshShell.Sendkeys "{ }"
WScript.Sleep 500
wshshell.sendkeys "{DOWN}"
wshshell.sendkeys "{DOWN}"
wshshell.sendkeys "{DOWN}"
wshshell.sendkeys "{DOWN}"
wshshell.sendkeys "{x}"

wshshell.sendkeys "{H}"
wscript.sleep 80
wshshell.sendkeys "{E}"
wscript.sleep 80
wshshell.sendkeys "{L}"
wscript.sleep 80
wshshell.sendkeys "{L}"
wscript.sleep 80
wshshell.sendkeys "{O}"
wscript.sleep 80
wshshell.sendkeys "{ }"
wscript.sleep 80
wshshell.sendkeys "{V}"
wscript.sleep 80
wshshell.sendkeys "{I}"
wscript.sleep 80
wshshell.sendkeys "{C}"
wscript.sleep 80
wshshell.sendkeys "{T}"
wscript.sleep 80
wshshell.sendkeys "{I}"
wscript.sleep 80
wshshell.sendkeys "{M}"
wscript.sleep 80
wshshell.sendkeys "!"
wscript.sleep 5000
wshshell.SendKeys "%F"
wscript.sleep 750
wshshell.SendKeys "{x}"
wscript.sleep 750
wshshell.SendKeys "{TAB}"
wscript.sleep 750
wshshell.SendKeys "{Enter}"
wscript.sleep 750


SAVE HAS VICTIM.VBS AND PUT IN THE START UP MENU

No offence but this is a very simple script, and pointless. Which forum? It might be my script.