Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate("Programador de tareas")
WScript.Sleep 2500
WshShell.SendKeys "{RIGHT}"
WScript.Sleep 4500
WshShell.SendKeys "{TAB}"
WScript.Sleep 4500
WshShell.SendKeys "T"
WScript.Sleep 4500
WshShell.SendKeys "{ENTER}"
WScript.Sleep 4500
WshShell.SendKeys "%C"
WScript.Sleep 4500
WshShell.SendKeys "{ENTER}"
Wscript.Quit