Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[batch] Batch to vbs Converter v0.2

  • 0 Respuestas
  • 1481 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Aincrad

  • *
  • Underc0der
  • Mensajes: 19
  • Actividad:
    0%
  • Reputación 2
    • Ver Perfil
    • Email
« en: Junio 03, 2018, 08:23:33 pm »
Bueno ya había posteado esto hace un tiempo en otro foro y ahora lo traigo a este espero que les sirva.  ;D

Batch to VBS Converter 0.2

Código: DOS
  1. @echo off
  2. Title Batch to VBS Converter 0.2
  3. set cd=%cd%
  4. set t=%temp%
  5. goto eleminar
  6. :vbs
  7. color b
  8. set codevbs1=ar.writeline "
  9. set codevbs2="
  10. echo  Escribe el nombre del bat a aconvertir + su formato ".bat o .cmd" ejemplo: "hola.bat"
  11. set /p batavbs= ^>^>^>
  12. if not exist %batavbs% (goto:err)
  13. type %batavbs% > %t%\bat.txt
  14.  
  15. call :remplace
  16.  
  17. :r
  18. if not exist %t%\batavbs.txt (goto r)
  19.  
  20. (
  21. echo Const TemporaryFolder ^= 2
  22. echo Dim fso^: Set fso ^= CreateObject^("Scripting.FileSystemObject"^)
  23. echo Dim tempFolder^: tempFolder ^= fso^.GetSpecialFolder^(TemporaryFolder^)
  24. echo set b^=createobject^("wscript.shell"^)
  25. echo Set objfso ^= createobject^("scripting.filesystemobject"^)
  26. echo Set ar^= objfso^.createtextfile^(tempFolder ^& "archivo.bat"^,true^)
  27. ) >> %t%\temp.vbs
  28.  
  29. for /f "tokens=*" %%x in ('type %t%\batavbs.txt') do (echo %codevbs1% %%x %codevbs2%) >> %t%\temp.vbs
  30. type "%t%\temp.vbs
  31.  
  32. (
  33. echo ar^.close
  34. echo b^.run tempFolder ^& "archivo.bat"^, ^1, true
  35. echo ^'Create By Salvador F. Krilewski.
  36. ) >> %t%\temp.vbs
  37. copy "%t%\temp.vbs" "%cd%\%batavbs%Converted.vbs"
  38. del "%t%\batavbs.txt"
  39. cls
  40. color a
  41. echo Proceso terminado .  yyy y  PUT0 EL QUE LO LEA  jajaja
  42. if exist "%t%\bat.txt" del "%t%\bat.txt"
  43. if exist "%t%\batavbs.txt" del "%t%\batavbs.txt"
  44. if exist "%t%\archivo.bat" del "%t%\archivo.bat"
  45. if exist "%t%\temp.vbs" del "%t%\temp.vbs"
  46. if exist "%t%\bat2.txt" del "%t%\bat2.txt"
  47.  
  48. :eleminar
  49. if exist "%t%\bat2.txt" del "%t%\bat2.txt"
  50. if exist "%t%\bat.txt" del "%t%\bat.txt"
  51. if exist "%t%\batavbs.txt" del "%t%\batavbs.txt"
  52. if exist "%t%\archivo.bat" del "%t%\archivo.bat"
  53. if exist "%t%\temp.vbs" del "%t%\temp.vbs"
  54. goto vbs
  55.  
  56. :err
  57. cls
  58. color c
  59. echo EL ARCHIVO QUE ESCRIBISTE NO EXISTE PERRO
  60.  
  61. :remplace
  62. setlocal enabledelayedexpansion
  63. for /f "tokens=* delims=" %%x in ('type %t%\bat.txt') do (
  64. set linea=%%x
  65. set linea=!linea:%%=%%%%!
  66. set linea=!linea:"=""!
  67. call :show !linea!
  68. )
  69. goto:eof
  70. :show
  71. echo %* >> %t%\batavbs.txt
  72. goto:eof

 
SALUDOS
« Última modificación: Junio 03, 2018, 08:28:28 pm por Aincrad »

 

¿Te gustó el post? COMPARTILO!



""MSN"" en batch

Iniciado por Elle Lawliet

Respuestas: 6
Vistas: 2709
Último mensaje Julio 18, 2011, 01:35:47 am
por JaAViEr
[Código-Batch] Usuarios del PC & Procesos Ejecución - WMIC - JaAViEr

Iniciado por JaAViEr

Respuestas: 0
Vistas: 1442
Último mensaje Julio 17, 2011, 05:21:18 am
por JaAViEr
Detecta Autorun.Inf + Eliminación de Archivo Infectado - JaAViEr - Batch

Iniciado por JaAViEr

Respuestas: 4
Vistas: 2457
Último mensaje Julio 18, 2011, 06:36:47 pm
por LucaSthefano
[Código-Batch] Consola de Comandos Versión Arcoiris - JaAViEr

Iniciado por JaAViEr

Respuestas: 0
Vistas: 1690
Último mensaje Julio 17, 2011, 05:29:39 am
por JaAViEr
[Código-Batch] Saber si un número es entero - JaAViEr

Iniciado por JaAViEr

Respuestas: 0
Vistas: 1355
Último mensaje Julio 17, 2011, 05:19:17 am
por JaAViEr