Image de raccourci

Bonjour, j'utilise un script en vbs pour créer un raccourci mais j'aimerais associer une image a ce raccourci (vous voyer ce que je veut dire ?)

voila le script

Code:

---

1 2 3 4 5 6

Dim Shell, DesktopPath, LNK Set Shell = CreateObject("WScript.Shell") DesktopPath = Shell.SpecialFolders("Desktop") Set lnk = Shell.CreateShortcut(DesktopPath & "\Tchat.lnk") lnk.TargetPath = "C:\Users\Phillippe\tchat.bat" lnk.Save

---

Merci de votre aide

Bonjour,

met à jour la propriété IconLocation :

Code:

---

1 2	lnk.IconLocation ="C:\tmp\site-vb\www\favicon.ico" lnk.Save

---

merci

je fais comme sa ?

Code:

---

1 2 3 4 5 6 7

Dim Shell, DesktopPath, LNK Set Shell = CreateObject("WScript.Shell") DesktopPath = Shell.SpecialFolders("Desktop") Set lnk = Shell.CreateShortcut(DesktopPath & "\Tchat.lnk") lnk.TargetPath = "C:\Users\Phillippe\tchat.bat" lnk.IconLocation ="ICONE_QUE_JE_VEUX_METTRE" lnk.Save

---

je peut mettre une icone jpg ou que .ico

je suis pas très fort en vbs...

edit:
mais mon icone est dans %SystemRoot%\system32\SHELL32.dll
comment je la reconnais et comment je al recupere ...

Code:

---

lnk.IconLocation ="%SystemRoot%\system32\SHELL32.dll,13"

---

à toi de trouver le bon index, dans la fenêtre de sélection tu compte de haut en bas puis de gauche à droite, en débutant à l'index 0

Ok Merci

edit: mais par exemple est-ce que "%SystemRoot%\system32\SHELL32.dll,160" sera la meme icone sur touts les ordinateurs ???

Salut ;)
Vous pouvez aussi extraire une icône associée a un exécutable se trouvant dans le dossier System32 par exemple.

Code:

---

lnk.IconLocation = "narrator.exe, 0" ' exemple de l'icone de narrator.exe dans le system32

---