Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Changer d'icone un raccourci

5 réponses
Avatar
Cécile
Bonjour,

J'ai un vbs dans le login script de mes users (domaine AD) qui copie un
raccourci vers l'url d'un intranet sur le bureau des users.
Je souhaiterais modifier l'icone de ce raccourci (j'ai le .ico qui convient)
: que faut il ajouter dans mon script vbs ?

Merci
Cécile

5 réponses

Avatar
Jacques93
Bonjour Cécile,
Bonjour,

J'ai un vbs dans le login script de mes users (domaine AD) qui copie un
raccourci vers l'url d'un intranet sur le bureau des users.
Je souhaiterais modifier l'icone de ce raccourci (j'ai le .ico qui convient)
: que faut il ajouter dans mon script vbs ?

Merci
Cécile




Tu peux essayer ceci, après la copie de ton raccourci (celui ci ne sera
pas recrée, il sera juste modifié) :

Dim WshShell
Dim oShellLink
Dim strURL

Set WshShell = CreateObject("WScript.Shell")
strURL = "MonURLChemin..."

Set oShellLink = WshShell.CreateShortcut _
(strURL + "Mon Application.lnk")
With oShellLink
.TargetPath = "Mon Application.exe"
.WindowStyle = 1
.IconLocation = "CheminMonIconeFolder.ico"
.Description = "Raccourci Mon Application.exe"
.WorkingDirectory = strURL
.Save
End With
--
Cordialement,

Jacques.

Avatar
Jean-Claude BELLAMY
Dans le message :%,
Cécile a pris la peine d'écrire ce qui suit :
Bonjour,

J'ai un vbs dans le login script de mes users (domaine AD) qui copie
un raccourci vers l'url d'un intranet sur le bureau des users.
Je souhaiterais modifier l'icone de ce raccourci (j'ai le .ico qui
convient)
que faut il ajouter dans mon script vbs ?



Un raccourci internet est un fichier TEXTE à extension ".URL" qui a cette
structure :

[InternetShortcut]
URL=<emplacement ou url complet du site>
IconFile=<emplacement ou URL de l'icône>
IconIndex=<index de l'icône dans le fichier>

P.ex. :

[InternetShortcut]
URL=http://www.bellamyjc.org/fr/explorer.html" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.bellamyjc.org/fr/explorer.html
IconFile=http://www.bellamyjc.org/favicon.ico" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.bellamyjc.org/favicon.ico
IconIndex=1

Donc on peut créer de toute pièce un raccourci Internet dans un simple batch
:

@echo off
...
set ficrac=%USERPROFILE%bureaunom-du-raccourci
echo [InternetShortcut] > %ficrac%
echo URL=http://xxxxxxxxxxxx >> %ficrac%
echo IconFile=fichier-icone >> %ficrac%
echo IconIndex=index-icone >> %ficrac%


Il n'est pas possible de le faire simplement depuis un VBS, car à la
différence de l'objet WshShortcut (raccourci de fichier ou dossier), l'objet
WshUrlShortcut (raccourci Internet) n'a pas la propriété "IconLocation"
(uniquement "TargetPath" et "FullName")

Donc en VBS il faudrait commencer par créer le raccourci,
puis éditer le fichier .URL afin de modifer les lignes "IconFile=..." et
"IconIndex=..."

Créer le .URL diretcement depuis un batch me semble beaucoup plus simple ...
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP]
http://www.bellamyjc.org ou http://jc.bellamy.free.fr


Avatar
Jean-Claude BELLAMY
Dans le message :,
Jacques93 a pris la peine d'écrire ce qui suit :
[...]
Tu peux essayer ceci, après la copie de ton raccourci (celui ci ne
sera pas recrée, il sera juste modifié) :

Dim WshShell
Dim oShellLink
Dim strURL

Set WshShell = CreateObject("WScript.Shell")
strURL = "MonURLChemin..."

Set oShellLink = WshShell.CreateShortcut _
(strURL + "Mon Application.lnk")
NANNNNNNNNNNNNN ! ;-)

Un raccourci URL a l'extension .URL, et non pas .LNK !

With oShellLink
.TargetPath = "Mon Application.exe"

.WindowStyle = 1
NANNNNNNNNNNNNN ! ;-)

La propriété "WindowStyle" n'existe pas pour un raccourci Internet ! (j'ai
testé !!!)

.IconLocation = "CheminMonIconeFolder.ico"
NANNNNNNNNNNNNN ! ;-)

La propriété "IconLocation " n'existe pas pour un raccourci Internet ! (j'ai
testé !!!)

.Description = "Raccourci Mon Application.exe"
NANNNNNNNNNNNNN ! ;-)

La propriété "Description" n'existe pas pour un raccourci Internet ! (j'ai
testé !!!)

.WorkingDirectory = strURL
NANNNNNNNNNNNNN ! ;-)

La propriété "WorkingDirectory" n'existe pas pour un raccourci Internet !
(j'ai testé !!!)

.Save
End With


--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP]
http://www.bellamyjc.org ou http://jc.bellamy.free.fr

Avatar
Cécile
Merci beaucoup !!

Je ne pensais pas que c'était si simple !
Cécile

Jean-Claude BELLAMY nous a dit :
Dans le message :%,
Cécile a pris la peine d'écrire ce qui suit :
Bonjour,

J'ai un vbs dans le login script de mes users (domaine AD) qui copie
un raccourci vers l'url d'un intranet sur le bureau des users.
Je souhaiterais modifier l'icone de ce raccourci (j'ai le .ico qui
convient)
que faut il ajouter dans mon script vbs ?



Un raccourci internet est un fichier TEXTE à extension ".URL" qui a
cette structure :

[InternetShortcut]
URL=<emplacement ou url complet du site>
IconFile=<emplacement ou URL de l'icône>
IconIndex=<index de l'icône dans le fichier>

P.ex. :

[InternetShortcut]
URL=http://www.bellamyjc.org/fr/explorer.html
IconFile=http://www.bellamyjc.org/favicon.ico
IconIndex=1

Donc on peut créer de toute pièce un raccourci Internet dans un
simple batch



@echo off
...
set ficrac=%USERPROFILE%bureaunom-du-raccourci
echo [InternetShortcut] > %ficrac%
echo URL=http://xxxxxxxxxxxx >> %ficrac%
echo IconFile=fichier-icone >> %ficrac%
echo IconIndex=index-icone >> %ficrac%


Il n'est pas possible de le faire simplement depuis un VBS, car à la
différence de l'objet WshShortcut (raccourci de fichier ou dossier),
l'objet WshUrlShortcut (raccourci Internet) n'a pas la propriété
"IconLocation" (uniquement "TargetPath" et "FullName")

Donc en VBS il faudrait commencer par créer le raccourci,
puis éditer le fichier .URL afin de modifer les lignes "IconFile=..."
et "IconIndex=..."

Créer le .URL diretcement depuis un batch me semble beaucoup plus
simple ...




Avatar
Jacques93
Bonjour Jean-Claude BELLAMY,
[...]
(strURL + "Mon Application.lnk")
NANNNNNNNNNNNNN ! ;-)

Un raccourci URL a l'extension .URL, et non pas .LNK !

With oShellLink
.TargetPath = "Mon Application.exe"

.WindowStyle = 1
NANNNNNNNNNNNNN ! ;-)

La propriété "WindowStyle" n'existe pas pour un raccourci Internet ! (j'ai
testé !!!)

.IconLocation = "CheminMonIconeFolder.ico"
NANNNNNNNNNNNNN ! ;-)

La propriété "IconLocation " n'existe pas pour un raccourci Internet ! (j'ai
testé !!!)

.Description = "Raccourci Mon Application.exe"
NANNNNNNNNNNNNN ! ;-)

La propriété "Description" n'existe pas pour un raccourci Internet ! (j'ai
testé !!!)

.WorkingDirectory = strURL
NANNNNNNNNNNNNN ! ;-)

La propriété "WorkingDirectory" n'existe pas pour un raccourci Internet !
(j'ai testé !!!)



La MEGA CONFUSION quoi :-(
En tout cas j'ai des acouphènes, pour plusieurs jours :-D

--
Cordialement,

Jacques.