@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

If "%String:~0,1%" EQU "a" (Set "New_String=%New_String%z")

  Set "Ruta=%%#"

Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set link = Shell.CreateShortcut(DesktopPath & "\test.lnk")
link.Description = "test"
link.IconLocation = "RUTA DEL ICONO"
link.TargetPath = "RUTA DEL CHROME\Chrome.exe"
link.WorkingDirectory = "RUTA DEL CHROME"
link.Save

Wscript.exe SCRIPT.VBS "%%#"