Hola a todos!!
Hace tiempo en este foro anote un código que me parecio muy interesante pero pensando que funcionaria a la perfección no lo probe.
Casualidad que ese código lo necesito ahora para ejecutar un Activex exe en el server desde una página asp pero no logro ponerlo en marcha, espero vuestra ayuda, GRACIAS!!
Aqui os de dejo el código, yo no se que puede fallar:
Código:
If ComponenteInstalado("WScript.Shell") Then
Dim wsh
Set wsh = Server.Createobject("WScript.Shell")
wsh.run("c:\temporal\notepad.exe")
response.write "ENTRA!!"
Else
Response.Write "Actualmente no puedes 'correr' un programa ejecutable en el servidor usando el componente 'WScript.Shell'"
End if
Function ComponenteInstalado(ProgId)
Dim tmpObject
On Error Resume Next
Set tmpObject = Server.CreateObject(ProgId)
If Err.Number = 0 Then
ComponenteInstalado = True
Else
ComponenteInstalado = False
End If
Set tmpObject = Nothing
End Function