<script language=VBScript>
sub execute
set objShell=CreateObject("Wscript.Shell")
objShell.Run("notepad")
end sub
</script>
<button onclick=execute>
notepad
</button>
<script language=VBScript>
sub execute
set objShell=CreateObject("Wscript.Shell")
objShell.Run("notepad")
end sub
</script>
<button onclick=execute>
notepad
</button>