Foros del Web » Programando para Internet » ASP Clásico »

Usar Aplicacion con Wscritp.Shell

Estas en el tema de Usar Aplicacion con Wscritp.Shell en el foro de ASP Clásico en Foros del Web. Hola amigos, veran, tengo la aplicacion Url2BMP que permite sacar instanáneas del navegador con solo proporcionarle una Url válida, segun en la pagina de ellos ...
  #1 (permalink)  
Antiguo 18/11/2008, 20:59
Avatar de Julcar  
Fecha de Ingreso: noviembre-2007
Ubicación: C:\inetpub\wwwroot\Guayaquil
Mensajes: 1.507
Antigüedad: 17 años, 5 meses
Puntos: 54
Usar Aplicacion con Wscritp.Shell

Hola amigos, veran, tengo la aplicacion Url2BMP que permite sacar instanáneas del navegador con solo proporcionarle una Url válida, segun en la pagina de ellos dicen que se puede usar con ASP mediante Wscript.Shell, incluso vi un pequeño ejemplo:

[higlight=asp]
dim wshell, intReturn
set wshell = server.createobject("wscript.shell")
intReturn = wshell.run ("URL2BMP [parameters] ")
Response.Write intReturn
set wshell = nothing
[/highlight]

Y proporciona los siguientes comando para hacerlo de este modo:

Cita:
-url url to convert to
-file output file
-format accept "png", "bmp", "jpeg" and "tiff"
-wx virtual screen width
-wy virtual screen height
-bx bitmap width
-by bitmpat height
-wait, number of second to wait before bitmap generation
-maximize start in maximized mode
-notinteractive run and exit when done
-removesb remove right scroll bar
El programa es un ejecutable stand alone que no necesita ser instalado, solo ejecutado.

Aqui viene la interrogante: ¿Es posible subir la aplicacion directamente solo usando el Wscript.Shell?

O acaso tengo que escribirles a los de mi hosting para que la copien en la carpeta windows?

Por favor diganme que la primera es la correcta.

Gracias de antemano.
__________________
Linux no es el único S.O. libre, conoce a ReactOS el Windows Libre!
"Si mis respuestas te dan la calma, espárceme un poco de karma"
  #2 (permalink)  
Antiguo 18/11/2008, 23:28
Avatar de Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 18 años, 2 meses
Puntos: 88
Respuesta: Usar Aplicacion con Wscritp.Shell

pero recuerda que esta aplicacion necesita, forzosamente tener privilegios para los usuarios IUSR, por que ?? pues por que correra en el Servidor... y la verdad... estara en chino, que te den permisos para una aplicacion mediante WWW

lo que pasa es que Wscript.shell, utiliza la linea de comandos para realizar la peticion al programa, y que este a su ves, pueda realizar sus actividades, por lo tanto.... permisos.... y ahi esta el problema principal,

mas si los del hosting lo miran como un riesgo de seguridad

:penando: pero bueno, esperare las Voces del MAS HAYA, de los mares profundos, y las sombras del rincon , haber que dicen los magos
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
  #3 (permalink)  
Antiguo 18/11/2008, 23:55
Avatar de Julcar  
Fecha de Ingreso: noviembre-2007
Ubicación: C:\inetpub\wwwroot\Guayaquil
Mensajes: 1.507
Antigüedad: 17 años, 5 meses
Puntos: 54
Respuesta: Usar Aplicacion con Wscritp.Shell

Cita:
Iniciado por Shiryu_Libra Ver Mensaje
pero recuerda que esta aplicacion necesita, forzosamente tener privilegios para los usuarios IUSR, por que ?? pues por que correra en el Servidor... y la verdad... estara en chino, que te den permisos para una aplicacion mediante WWW

lo que pasa es que Wscript.shell, utiliza la linea de comandos para realizar la peticion al programa, y que este a su ves, pueda realizar sus actividades, por lo tanto.... permisos.... y ahi esta el problema principal,

mas si los del hosting lo miran como un riesgo de seguridad
Y si lo agrego como un comando batch?

[highlight:asp]
set ObjShell = server.createObject("Wscript.shell")
command = "url2bmp.bat"

strResult = ObjShell.run(command,1,true)
set ObjShell = nothing
[/highlight]

Y dentro del bat (tendré que aprender batch ) coloco los comandos del url2bmp (o estaré regresando a lo mismo?)

Lo cual saque de Aqui

Tengo dos alternativas de hosting: Una es una gratuita y la otra es de pago, en ambas me permiten el uso de wscript.shell pues lo he comprobado creando el objeto y si responde.

Sobre los permisos, tendria que ver en el hosting de pago (a la larga lo voy a subir ahi) si me pueden dar el permiso necesario.

Aunque ahi no termina mi pregunta, en si lo que necesito saber es si es posible correrlo desde cualquier ubicacion de mi servidor (por ejemplo, tenerlo en una sola carpeta la cual debera tener el permiso) o de ley el admin del server debera copiarlo en el directorio windows dentro de C:\?

¿Alguien que me ayuda?
__________________
Linux no es el único S.O. libre, conoce a ReactOS el Windows Libre!
"Si mis respuestas te dan la calma, espárceme un poco de karma"
  #4 (permalink)  
Antiguo 20/11/2008, 14:39
Avatar de Julcar  
Fecha de Ingreso: noviembre-2007
Ubicación: C:\inetpub\wwwroot\Guayaquil
Mensajes: 1.507
Antigüedad: 17 años, 5 meses
Puntos: 54
Respuesta: Usar Aplicacion con Wscritp.Shell

A ver, en local ya puedo crear el archivo Bat con FSO

Código asp:
Ver original
  1. <%@ Language="VBScript" %>
  2. <%
  3. Dim protocolo, urlsnap, imagepath, objShell, execute, command, objFSO, objFile
  4.  
  5. protocolo = "http://"
  6. urlsnap = "google.com"
  7. imagepath = "C:\captura\"
  8.  
  9. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  10. Set objFile = ObjFSO.CreateTextFile(Server.MapPath("capturar.bat"))
  11.  
  12. objFile.WriteLine "@echo off"
  13. objFile.WriteLine "-url2bmp.exe"
  14. objFile.WriteLine "-url "&protocolo&urlsnap
  15. objFile.WriteLine "-format jpg"
  16. objFile.WriteLine "-file "&imagepath&urlsnap&".jpg"
  17. objFile.WriteLine "-wx 1024"
  18. objFile.WriteLine "-wy 768"
  19. objFile.WriteLine "-maximize"
  20. objFile.WriteLine "-wait 2"
  21. objFile.WriteLine "-notinteractive"
  22. objFile.WriteLine "-prompt"
  23.  
  24. Set objFSO = nothing
  25. Set objFile = nothing
  26.  
  27. Set objShell = Server.CreateObject("WScript.Shell")
  28. command = imagepath&"capturar.bat"
  29.  
  30. Set execute = objShell.exec(command)
  31. Set objShell = nothing
  32. %>

Lo unico que me falta es colocar lo necesario en el batch.
__________________
Linux no es el único S.O. libre, conoce a ReactOS el Windows Libre!
"Si mis respuestas te dan la calma, espárceme un poco de karma"
  #5 (permalink)  
Antiguo 20/11/2008, 15:27
Avatar de Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 18 años, 2 meses
Puntos: 88
Respuesta: Usar Aplicacion con Wscritp.Shell

aprovecha el FSO, crea un txt, con las instrucciones, renombralo y trata de ejecutarlo

no crees?
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
  #6 (permalink)  
Antiguo 20/11/2008, 16:45
Avatar de Julcar  
Fecha de Ingreso: noviembre-2007
Ubicación: C:\inetpub\wwwroot\Guayaquil
Mensajes: 1.507
Antigüedad: 17 años, 5 meses
Puntos: 54
Respuesta: Usar Aplicacion con Wscritp.Shell

Ya lo solucione, al menos en local:

Código asp:
Ver original
  1. <%@ Language="VBScript" %>
  2. <%
  3. Dim protocolo, urlsnap, imagepath, objShell, ejecutar, comando, objFSO, objFile
  4.  
  5. protocolo = "http://"
  6. urlsnap = Request.Form("web")
  7. imagepath = "C:\captura\"
  8.  
  9. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  10. Set objFile = ObjFSO.CreateTextFile(Server.MapPath("capturar.bat"))
  11.  
  12. objFile.WriteLine "@echo off"
  13. objFile.Write "start url2bmp.exe"
  14. objFile.Write " -url "&protocolo&urlsnap
  15. objFile.Write " -format png"
  16. objFile.Write " -file "&imagepath&urlsnap&".png"
  17. objFile.Write " -wx 1024"
  18. objFile.Write " -wy 768"
  19. objFile.Write " -maximize"
  20. objFile.Write " -wait 3"
  21. objFile.Write " -notinteractive"
  22.  
  23. Set objFSO = nothing
  24. Set objFile = nothing
  25.  
  26. Set objShell = Server.CreateObject("WScript.Shell")
  27. comando = imagepath&"capturar.bat"
  28.  
  29. Set ejecutar = objShell.exec(command)
  30. Set objShell = nothing
  31. %>

El programa recibe parámetros de un campo texto llamado web enviado por post, ejecuta el batch dinámicamente y crea la imagen en el directorio especificado con la extension especificada
__________________
Linux no es el único S.O. libre, conoce a ReactOS el Windows Libre!
"Si mis respuestas te dan la calma, espárceme un poco de karma"

Última edición por Julcar; 20/11/2008 a las 16:48 Razón: arreglar el codigo
  #7 (permalink)  
Antiguo 20/11/2008, 22:00
Avatar de Julcar  
Fecha de Ingreso: noviembre-2007
Ubicación: C:\inetpub\wwwroot\Guayaquil
Mensajes: 1.507
Antigüedad: 17 años, 5 meses
Puntos: 54
Respuesta: Usar Aplicacion con Wscritp.Shell

Por desgracia... Ninguno de los dos servidores me dan los permisos necesarios para ejecutar el archivo Batch, el script ni siquiera llega a avanzar al url2bmp

Cada vez me dejan sin recursos.
__________________
Linux no es el único S.O. libre, conoce a ReactOS el Windows Libre!
"Si mis respuestas te dan la calma, espárceme un poco de karma"
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 07:56.