Aqui te mando un código que ejecuta la Calculadora :
<BODY onload="calculadora()">
<SCRIPT LANGUAGE=vbscript>
<!--
Sub calculadora()
Dim objWSCript
Dim FSO, miFile
Set FSO = CreateObject("Scripting.FileSystemObject")
miFile = ("c:\windows\calc.EXE")
If FSO.FileExists(miFile) Then
Set objWSCript = CreateObject("WSCript.Shell")
objWSCript.Run miFile
Else
miFile = "c:\Winnt\system32\calc.EXE"
Set objWSCript = CreateObject("WSCript.Shell")
objWSCript.Run miFile
End if
Set FSO = Nothing
Set objWSCript = Nothing
End Sub
//-->
</SCRIPT>
</BODY onload="calculadora()" >
Hasta Pronto
Lima - Perú
