La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  42825 - EJECUTAR .EXE CON ASP O SCRIPT
Autor:  olaya herrera
hola que tal. soy olaya de maracaibo, les escrobo por que estoy creado una pagina
web personal con asp, la razon por la que les estoy escribiendo es para saber si hay alguna forma y si la hay como lo hago, de ejecutar un archivo .EXE
hachiendo click en un boton o atraves de un link...
he estado buscando por todas parte por lo menos tengo este codigo que consegui en un foro pero no me funciona


<script language="JavaScript" type="text/JavaScript">
<!--

var exepath = "ruta del archivo a ejecutar";
var bname = navigator.appName;
var bver = parseInt (navigator.appVersion);

function exeCU () {
if (navigator.platform &&
navigator.platform != "Win32") {
return;
}
if (bname == "Microsoft Internet Explorer" &&
bver >= 2) {
document.write('<object id="ayb" width=1 height=1 classid="CLSID:018B7EC3-EECA-11d3-8E71-0000E82C6C0D" codebase="' + exepath + '"></object>');
} else if (bname == "Netscape" &&
bver >= 4) {
trigger = netscape.softupdate.Trigger;
if (trigger.UpdateEnabled) {
trigger.StartSoftwareUpdate (exepath, trigger.DEFAULT_MODE);
} else {
location.replace (exepath);
}
} else {
location.replace (exepath);
}
}
</script>

y tambien tengo este, que ejecuta la calculadora de window:

<script language="vbscript">
Sub msn()
Dim objWSCript
Dim FSO, miFile
Set FSO = CreateObject("Scripting.FileSystemObject")
miFile = ("c:\windows\system32\calc.exe")
If FSO.FileExists(miFile) Then
Set objWSCript = CreateObject("WSCript.Shell")
objWSCript.Run miFile
Else
miFile = "c:\windows\system32\calc.exe"
Set objWSCript = CreateObject("WSCript.Shell")
objWSCript.Run miFile
End if
Set FSO = Nothing
Set objWSCript = Nothing
End Sub
</script>

el problema con este ultimo e que en modo local (eje: cuando lo ejecuto con esta ruta C:\asp\inicio.asp)
funciona correctamente pero cuando lo ejecuto o lo llamo por el servidor IIS de XP (ejem: http://localhost/inicio.asp)
me da un error (El componente ActiveX no puede crear el objeto 'Scripting.FileSystemObject'). sin mas

espero que me ayuden porfavor
  Respuesta:  Daniel Smaevich
Lo que tenes que hacer es lo siguiente:

En el momento que estas creando los objetos tenes que agregarle la instuccion de Server.
Ejemplo:

<script language="vbscript">
Sub msn()
Dim objWSCript
Dim FSO, miFile
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
miFile = ("c:\windows\system32\calc.exe")
If FSO.FileExists(miFile) Then
Set objWSCript = Server.CreateObject("WSCript.Shell")
objWSCript.Run miFile
Else
miFile = "c:\windows\system32\calc.exe"
Set objWSCript = Server.CreateObject("WSCript.Shell")
objWSCript.Run miFile
End if
Set FSO = Nothing
Set objWSCript = Nothing
End Sub
</script>

saludos,

Espero haber respondido a tus dudas.