elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a Git (Primera Parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  programita para crear un acceso directo (.bat con vbs)
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: programita para crear un acceso directo (.bat con vbs)  (Leído 5,488 veces)
P3NDULO

Desconectado Desconectado

Mensajes: 19


Ver Perfil
programita para crear un acceso directo (.bat con vbs)
« 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..


« Última modificación: 27 Diciembre 2013, 20:47 pm por ElektroSoft » En línea

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.866



Ver Perfil
Re: programita para crear un acceso directo (.bat con vbs)
« Respuesta #1 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


En línea



Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
crear acceso directo...
Programación Visual Basic
soru13 1 2,096 Último mensaje 28 Diciembre 2006, 03:19 am
por CeLaYa
Crear acceso directo
Programación Visual Basic
Jareth 0 1,611 Último mensaje 13 Mayo 2007, 23:39 pm
por Jareth
Crear acceso directo
Scripting
maxx93 3 3,817 Último mensaje 23 Julio 2010, 05:21 am
por maxx93
Crear acceso directo con InnoSetup si o si
Software
rusco 1 2,282 Último mensaje 28 Marzo 2012, 16:56 pm
por rusco
Extensión para crear acceso directo de un determinado comando en navegadores web
Dudas Generales
curiosport 3 2,438 Último mensaje 21 Septiembre 2015, 22:14 pm
por curiosport
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines