Raccourci URL Firefox

Bonjour à tous.
J'ai réalisé à l'aide du net ce petit script afin d'ouvrir une URL via Firefox. Mais voilà le raccourci se crée bien mais impossible d'ouvrir l'URL en question car il m'apparait le message suivant:
"Vérifiez que vous avez rentré le nom correct, puis réessayez."
D'autre part serait il possible de changer l’icône pour un autre et ce toujours par script, dans l'affirmative, comment?
D'avance je vous remercie de votre aide.
Cordialement
Bernard

Voici le script en question:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

dim Shell, DesktopPath, URL dim CheminFF dim ADR ADR="https://www.google.fr/?gws_rd=ssl" Set Shell = CreateObject("WScript.Shell")   DesktopPath = Shell.SpecialFolders("Desktop") Set URL = Shell.CreateShortcut(DesktopPath & "\Google.URL") CheminFF=("C:\Program Files (x86)\Mozilla Firefox\firefox.exe") URL.TargetPath = CheminFF + ADR URL.Save

---

:salut:
un coup d’œil ici ==> Comment créer un raccourci vers un site internet où un programme sur le bureau de windows

Code:

---

1 2 3 4 5 6

Dim Shell, DesktopPath, URL Set Shell = CreateObject("WScript.Shell") DesktopPath = Shell.SpecialFolders("Desktop") Set URL = Shell.CreateShortcut(DesktopPath & "\MonForumPreferé.URL") URL.TargetPath = "http://www.developpez.net/forums" URL.Save

---