Cita de: gandalf2706 en 23 Marzo 2012, 14:37 PM
quizas se podría buscar el acceso directo y agregarle esta propiedad para que cada vez que se ejecute este acceso directo acceda con la opcion habilitada.
Eso es precisamente lo que hacen los comandos externos que te comenté
A ver, Es que no tengo muy claro la forma en que van a usar tu script...
Para que el usuario no haga nada manualmente, Puedes crear un archivo extraible con WINRAR. Adentro metes el comando externo (El archivo.exe), Y usas el comando externo en tu script, tal y como lo detalla el manual del primer comando externo que te puse...
¿Me entendiste?
Bueno, De todas maneras no importa, Te lo voy a poner muy fácil...
Cuando comentaba lo de los argumentos, Me referia a "iniciar" el VBS pasándole los parámetros que obtienes en el bat (La ruta del chrome), Y así hacer el acceso directo.
Aqui tienes la variante del code que te ppuse arriba:
PD: No ejecuta Chrome, Simplemente crea el acceso directo en el escritorio.
Código (dos) [Seleccionar]
@Echo OFF
REM Comprueba la versión de Windows para usar debidamente el comando START
wmic os get name /format:list | find /i "windows 7" >NUL
If errorlevel 0 (Set Win7=SI)
Echo: Buscando Google Chrome...
REM Primero busca en las carpetas corrientes de los programas instalados.
For /F "Tokens=*" %%# in ('Dir /B /S "%Programfiles%\Chrome.exe" 2^>nul') Do (Call :Shortcut "%%#")
For /F "Tokens=*" %%# in ('Dir /B /S "%Programfiles(x86)%\Chrome.exe" 2^>nul') Do (Call :Shortcut "%%#")
REM Busca en todas las unidades.
For /F "Tokens=2 delims==:" %%# in ('wmic logicaldisk get caption /format:list') Do (
For /F "Tokens=*" %%$ in ('Dir /B /S "%%#:\Chrome.exe" 2^>nul') Do (Call :Shortcut "%%$"))
Goto :Error
REM Crea el acceso directo
:Shortcut
Echo: Set Shell = CreateObject("WScript.Shell") > %Systemdrive%\chrome.vbs
Echo: DesktopPath = Shell.SpecialFolders^("Desktop") >> %Systemdrive%\chrome.vbs
Echo: Set link = Shell.CreateShortcut(DesktopPath ^& "\Google Chrome.lnk") >> %Systemdrive%\chrome.vbs
Echo: link.Description = "Google Chrome" >> %Systemdrive%\chrome.vbs
Echo: link.IconLocation = Wscript.Arguments(0) >> %Systemdrive%\chrome.vbs
Echo: link.TargetPath = Wscript.Arguments(0) >> %Systemdrive%\chrome.vbs
Echo: link.Arguments = Wscript.Arguments(1) >> %Systemdrive%\chrome.vbs
Echo: link.WorkingDirectory = Wscript.Arguments(2) >> %Systemdrive%\chrome.vbs
Echo: link.Save >> %Systemdrive%\chrome.vbs
Echo: Wscript.Quit(0) >> %Systemdrive%\chrome.vbs
wscript %Systemdrive%\chrome.vbs %* --ignore-gpu-blacklist "%~dp1"
If NOT %Errorlevel% EQU 0 (Goto :Error)
Del /Q "%Systemdrive%\chrome.vbs"
Exit
REM Si no lo encuentra...
:Error
Echo: No se ha encontrado el executable "Chrome.exe" | MORE
Pause
Exit