Création d'un raccourci avec icone grâce à un Vbs ou un batch

Bonjour, je cherche a faire apparaitre un raccourci sur le bureau grâce à un Vbs ou un batch. J'ai déjà fait mes recherches mais elles n'ont pas abouties.
Pourriez vous me faire le script avec cela :

Dim Shell, DesktopPath, INK 

Set Shell = CreateObject("WScript.Shell") 

DesktopPath = Shell.SpecialFolders("Desktop") 

Set Ink = Shell.CreateShortcut(DesktopPath & "\Google Chrome.lnk") 

Ink.TargetPath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" 

Ink.Save 

mais avec cette icone : "C:\Users\xxxxx\OneDrive\Documents\clé USB de yyyyy\Clé USB de zzzzzz ne pas toucher !\divers\téléchargement.ico"

Et qui ouvre : "C:\Users\xxxxx\OneDrive\Documents\clé USB de yyyyy\Clé USB de zzzzzz ne pas toucher !\divers\!.txt"

Et enfin avec le nom de : "?"

Merci !