Ver Mensaje Individual
  #4 (permalink)  
Antiguo 20/11/2008, 14:39
Avatar de Julcar
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"