This is my own file to launch the "S" to Claymore every 10 minutes (Save as S.vbs):

Dim ObjShell :Set ObjShell = CreateObject("Wscript.Shell")
ObjShell.AppActivate("ETH")
objShell.SendKeys "s"