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.

@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

@fullhaksistem
No creo que sea de mucha ayuda un snippet de VB.NET para un usuario que preguntó en un subforo de Scripting, aún así, gracias por colaborar con los demás.

Fíjense en el perfil de los usuarios antes de revivir un tema antiguo:


Tema cerrado,
Saludos!