Ejecutar un programa en el server

[vgaray]

Este código te servirá para ejecutar algún programa localizado en el servidor.

<%
If ComponenteInstalado("WScript.Shell") Then
Dim wsh
Set wsh = createobject("WScript.Shell")
wsh.run("c:\winnt\notepad.exe")
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
%>


---------------------
Tan libre como gratuito!!!