09/04/2003, 18:30
|
 | | | Fecha de Ingreso: diciembre-2002 Ubicación: Ahora aqui
Mensajes: 485
Antigüedad: 22 años, 5 meses Puntos: 0 | |
| <%
If ComponenteInstalado("WScript.Shell") Then
Dim wsh
Set wsh = createobject("WScript.Shell")
wsh.run("c:\windows\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
%> |