Ejecutar elementos en el servidor

[Yoston]

Hola...aqui les dejo un objeto COM
que hice para ejecutar aplicaciones en el servidor(hay objetos ya creados como el ASPEXEC... pero siempre es mejor aprender )
bueno para crear este control activeX tienen
que abrir el visual basic(yo use vb6)...luego nuevo proyecto
y seleccionar DLL activeX... se abrira la ventana de la clase por defecto
class1 ... luego pegar esto..

Option Explicit

Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Declare Function ShellExecute Lib "shell32" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long


Sub Ejecutador(Abrir As String, Archivo As String, Parametro As String)

Dim hWndDesk As Long
Dim success As Long
hWndDesk = GetDesktopWindow()
success = ShellExecute(hWndDesk, Abrir, Archivo, Parametro, 0&, 1)

End Sub

luego guardar el proyecto yo le puse(Ejecutador.vbp) y la clase(le puse Exe.cls)
compilar el proyecto para generar la DLL
...guardarla en el system32(win2000/nt) luego registrarla si es necesario
..ok vamos a la pagina ASP

y colocamos
<%
set Executador=Server.CreateObject("Ejecutador.Ex e")
Executador.Ejecutador "Open","c:\servo",application( "grados")
%>

bueno yo la use para mover unos servomotores ...pero pueden uds encontrarle mas uso
tb puede ser "Play" para ejecutar videos,mp3, etc

bueno espero ayudar o interesar a alguien...este es el principio por que si activamos
algo en el server luego hay que matarlo... pero esa es tarea para la casa... :-p

chausito


Perdonen lo poco...

[sanfermin]

Muy interesante el apunte, no taria nada mal un poco mas d info sobre el tema ;)

[sacry]

hola Yoston
he probado el codigo que facilitas pero no me acaba de funcionar, yo el programa que quiero abrir es el notepad (por ejemplo)con lo cual el codigo me quedaria asi:

<% set Executador=Server.CreateObject("Ejecutador.ex e")
Executador.Ejecutador "Open","c:\winnt\",application ("notepad") %>

aunque no se si eso seria correcto
es decir por un lado le doy el path y por otro el nombre de la aplicacion???
o bien directamente el nombre de la aplicacion y luego el archivo a abrir???
no se dime tu que es lo que falla me da un error en la linea del set

gracias y un saludo

[Yoston]

Hola...mira
un ejemplo
<%
set Executador=Server.CreateObject("Ejecutador.Ex e")
Executador.Ejecutador "Play","c:/a.mp3",""
%>

parametros "Open o Play","archivo a ejecutar","parametros que necesita el archivo"

si no se abre el archivo ve en administrador de tareas de windows(CTR+ALT+SUPR) si se esta ejecutando esa aplicacion...y si quieres verla es decir que se refleje en pantalla tienes que dar los permisos necesarios..en servicios del sistema...
espero que te quede mas claro...
chausito...

[sacry]

gracias YOSTON ahora si me funciona lo unico que tube que cambiar ejecutador.exe por ejecutador.class1

por cierto sabrias como hacer para que me habra la aplicacion cada vez en una sesion distinta, ya que si por ejemplo habro el archivo mp3, siempre me lo abre en la misma ventana y queria que lo hiciese en distintas.
de todas formas muchas gracias

[Yoston]

Hola...
prueba en el global.asa
algo asi...
Sub Session_OnStart
set Executador=Server.CreateObject("Ejecutador.Ex e")
Executador.Ejecutador "Play","c:/ding.wav",""
End Sub

ojala te sirva...
chausito ;)

[titoli]

Hola estoy interesado en poder controlar 2 servos de una camara web-movil, si tienes alguna información te agradeceria que me la enviaras.
Gracias
Tito
[email protected]

[lexus]

hola,

a mi tambien me interesa poder manejar un servomotor para una camara, si nos puedes enviar algo de informacion te lo agradeceria mucho

mi correo es [email protected]
espero me puedas colaborar,.

[maestro]

¿Quereis saber lo que pasa en la habitacion donde estan vuestros servidores , eh?