Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: P3NDULO en 27 Diciembre 2013, 20:14 pm



Título: programita para crear un acceso directo (.bat con vbs)
Publicado por: P3NDULO en 27 Diciembre 2013, 20:14 pm
Buenas aca les dejo ese programita que busque y pues acomode...
Primero chequeo que tipo de de SO, para luego crear un acceso directo en el esritorio del usuario que lo ejecute.

Código
  1. @ECHO OFF
  2. REM XP Check
  3. ver | findstr /i "5\.1\." > nul
  4. IF %ERRORLEVEL% EQU 0 SET VER=XP-%PROCESSOR_ARCHITECTURE%
  5.  
  6. REM 7 Check
  7. ver | findstr /i "6\.1\." > nul
  8. IF %ERRORLEVEL% EQU 0 SET VER=WIN7-%PROCESSOR_ARCHITECTURE%
  9.  
  10. ::REM 8 Check
  11. ::ver | findstr /i "6\.2\." > nul
  12. ::IF %ERRORLEVEL% EQU 0 SET VER=WIN8-%PROCESSOR_ARCHITECTURE%
  13.  
  14. ECHO %VER%
  15. if %VER%==WIN7 (set coco=%userprofile%/desktop) else (set coco=%userprofile%/Escritorio)
  16. cd %coco%
  17. echo Set WshShell = WScript.CreateObject("WScript.Shell") > "ad.vbs"
  18. echo Set Link = WshShell.CreateShortcut("Compensacion Bicentenario.lnk") >> "ad.vbs"
  19. echo With Link >> "ad.vbs"
  20. echo .TargetPath = "%PROGRAMFILES%\CompensacionBicentenario\1.5\BacosiRegional.jar" >> "ad.vbs"
  21. echo .WindowStyle = 1 >> "ad.vbs"
  22. echo .Hotkey = "" 'HotKey >> "ad.vbs"
  23. echo .IconLocation = "%PROGRAMFILES%\carpeta\1.5\BacosiRegional.jar" >> "ad.vbs"
  24. echo .Description = "" >> "ad.vbs"
  25. echo .WorkingDirectory = "%PROGRAMFILES%" >> "ad.vbs"
  26. echo .Save >> "ad.vbs"
  27. echo End With >> "ad.vbs"
  28. ad.vbs
  29. del ad.vbs
  30. Exit /B
  31.  

Nota: este programa los monto en la pagina de intranet de la empresa para que los usuairo lo puedan ejecutar, sin tener que ingresar al equipo y crearles el acceso direccto..


Título: Re: programita para crear un acceso directo (.bat con vbs)
Publicado por: Eleкtro en 28 Diciembre 2013, 15:30 pm
Veo que al final te serviste de VBS como te indiqué, aquí tienes una pequeña simplificación del código por si quieres:

Código
  1. @ECHO OFF
  2.  
  3. For /F "Tokens=1-2 Delims=." %%X In (
  4. 'wmic.exe os get version ^| FINDSTR "[0-9]"'
  5. ) Do (
  6.  
  7. If %%X%%Y EQU 51 (
  8. REM XP
  9. set "COCO=%UserProfile%\Escritorio"
  10. ) Else (
  11. REM Vista, 7, 8
  12. set "COCO=%UserProfile%\Desktop"
  13. )
  14. )
  15.  
  16. (
  17. Echo Set Link = WScript.CreateObject^("WScript.Shell"^).CreateShortcut^("%COCO%\Compensacion Bicentenario.lnk"^)
  18. Echo With Link
  19. Echo .TargetPath = "%PROGRAMFILES%\CompensacionBicentenario\1.5\BacosiRegional.jar"
  20. Echo .WindowStyle = 1
  21. Echo .IconLocation = "%PROGRAMFILES%\carpeta\1.5\BacosiRegional.jar"
  22. Echo .WorkingDirectory = "%PROGRAMFILES%\CompensacionBicentenario\1.5\"
  23. Echo .Save
  24. Echo End With
  25. ) > "%TEMP%\ad.vbs"
  26.  
  27. Wscript.exe "%TEMP%\ad.vbs"
  28.  
  29. Exit /B 0

Saludos