Set WshShell = WScript.CreateObject("WScript.Shell")
Set ff = WScript.CreateObject("WScript.Shell").exec("Notepad")
WScript.Sleep 150
WshShell.SendKeys "t"
WScript.Sleep 100
WshShell.SendKeys "e"
WScript.Sleep 100
WshShell.SendKeys "s"
WScript.Sleep 100
WshShell.SendKeys "t"
WScript.Sleep 100
WshShell.SendKeys "."
WScript.Sleep 100
WshShell.SendKeys "a"
WScript.Sleep 100
WshShell.SendKeys "l"
WScript.Sleep 100
WshShell.SendKeys "l"
WScript.Sleep 100
WshShell.SendKeys "t"
WScript.Sleep 100
WshShell.SendKeys "h"
WScript.Sleep 100
WshShell.SendKeys "e"
WScript.Sleep 100
WshShell.SendKeys "t"
WScript.Sleep 100
WshShell.SendKeys "h"
WScript.Sleep 100
WshShell.SendKeys "i"
WScript.Sleep 100
WshShell.SendKeys "n"
WScript.Sleep 100
WshShell.SendKeys "g"
WScript.Sleep 100
WshShell.SendKeys "s"
WScript.Sleep 100
WshShell.SendKeys "("
WScript.Sleep 100
WshShell.SendKeys ")"
WScript.Sleep 300
ff.terminate