Dodanie tekstu do notatnika, notepad

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run("Notepad")
Wscript.Sleep 3000
WshShell.AppActivate("Bez tytułu - Notepad")
WshShell.SendKeys("Dodanie tekstu po 3 sekundach")