'Option Explizit 

WScript.Sleep 200

Dim Fi, Fso

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

Sub sk(Befehl)
	'wscript.echo befehl
   WshShell.SendKeys(Befehl)
   WScript.Sleep 100     'Zeitangabe in Millisekunden 

End Sub

sk "wsh_ea1"
sk "{END}"
sk "{BS 6}"
sk "-abw"
sk "{ENTER}"
sk "wsh_ea2"

WScript.Quit()