<script language="vbscript">
DIM objShell
Set objShell=CreateObject("WScript.Shell")
objShell.Run "%WINDIR%\NOTEPAD.EXE",1,FALSE
Set objShell = Nothing
</script>
DIM objShell
Set objShell=CreateObject("WScript.Shell")
objShell.Run "%WINDIR%\NOTEPAD.EXE",1,FALSE
Set objShell = Nothing
</script>
sub OpenNotepad
DIM objShell
Set objShell=CreateObject("WScript.Shell")
objShell.Run "%WINDIR%\NOTEPAD.EXE",1,FALSE
Set objShell = Nothing
end sub
</script>
<a href="#" onclick="vbscript:OpenNotepad">Open Notepad</a>