Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
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>