<html><head><script language="vbscript" >Function test Dim t Set t = CreateObject("WScript.Shell") t.Run "notepad.exe",1,True set t = nothingEnd Function</script></head><body onLoad="test"></body></html>
123456789101112131415