<html>
<SCRIPT LANGUAGE="VBScript">
sub prog
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run ("notepad", 1, True)
WshShell.SendKeys "&i.value"
End sub
</script>
<body>
<input type=text name=i value="">
<input type=submit name=submit onClick=prog>
<body>
</html>
