Script vbs et icone

Drys Kaine · 20/12/2006, 11h29

J'aimerais pouvoir scripter un changement d'icone afin de l'appliquer via l'Active Directory sur plusieurs postes à la fois. Seulement voilà, je n'ai aucune idée de comment faire, et les scripts sur lesquels je tombe dans mes recherches sont on ne peut plus éloignés de ce que je cherche... qui doit être relativement simple au final.

Il y a bien des scripteurs dans le coin, na?

PS : mon script actuel auquel j'aimerais ajouter les lignes concernant le changement d'icône :

Code:

Dim WshNetwork 
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "b:", "\\srv-DC1\riboulding" 

Dim Shell, DesktopPath, URL
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set URL = Shell.CreateShortcut(DesktopPath & "\Disque dur.url")
URL.TargetPath = "file://///srv-DC1/riboulding/"
URL.Save

Drys Kaine · 20/12/2006, 19h16

Perchon?

Drys Kaine · 21/12/2006, 07h56

Allez, dans le coin il y a bien des gens qui doivent savoir... non ?

Nenaal Llaenaan · 21/12/2006, 09h35

Si je comprends ta question, ton script crée un raccourci, et personnalise l'icône ?
[Edit]
Si j'ai bien compris la question :

URL.IconLocation = "chemin du fichier contenant les icônes,n" où n représente le numéro d'ordre de l'icône dans le fichier.
[/Edit]

Drys Kaine · 21/12/2006, 10h14

Code:

Dim Shell, DesktopPath, URL
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set URL = Shell.CreateShortcut(DesktopPath & "\Disque dur.url")
URL.IconLocation = "z:\informatique\logiciels\shell32.dll,10"
URL.TargetPath = "file://///srv-DC1/riboulding/"
URL.Save

Marche pas...

Nenaal Llaenaan · 21/12/2006, 19h13

Peut-être parce que tu crées un .url, au lieu d'un .lnk.

Drys Kaine · 21/12/2006, 19h38

And?

Via l'interface graphique je peux en changer l'icône. Donc... doit bien y avoir moyen.

Nenaal Llaenaan · 21/12/2006, 23h19

Et IconLocation n'est pas une propriété pour un .url, uniquement pour un .lnk

Code:

Dim Shell, DesktopPath, URL
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set URL = Shell.CreateShortcut(DesktopPath & "\Disque dur.lnk")
URL.IconLocation = "z:\informatique\logiciels\shell32.dll,10"
URL.TargetPath = "\\srv-DC1\riboulding/"
URL.Save

Ca ne te va pas ça ? Tu dois absolument faire un .url ?

Drys Kaine · 21/12/2006, 23h32

Euh... non.

Mais à la base j'avais scripté de l'url ( ce qui m'était venu à l'esprit pour un lecteur réseau avec un chemin unc ), donc je cherchais à coller l'icône au raccourci fait de la sorte... M'enfin, en lnk, ça marche en tout cas. Merci

PS: pour ma culture, je serais cela dit intéressé de trouver comment changer l'icône d'un raccourci vers une url

Nenaal Llaenaan · 22/12/2006, 16h26

Si je suis bien ce qui est dit par Microsoft, la méthode CreateShortcut permet de créer un objet WshShortcut (.lnk) ou un objet WshURLShortcut (.url). Dans ton cas, tu veux donc créer un WshURLShortcut. Or, les seules propriétés de ce type d'objet sont FullName et TargetPath. La seule méthode associée est Save. Donc, avec ces seules documentations, je dirais que tu ne peux pas le faire

Sources :
Méthode CreateShortcut
Objet WshURLShortcut

Drys Kaine Alpha & Oméga	Allez, dans le coin il y a bien des gens qui doivent savoir... non ?
21/12/2006, 07h56

Nenaal Llaenaan [AB] Alpha & Oméga	Si je comprends ta question, ton script crée un raccourci, et personnalise l'icône ? [Edit] Si j'ai bien compris la question : URL.IconLocation = "chemin du fichier contenant les icônes,n" où n représente le numéro d'ordre de l'icône dans le fichier. [/Edit]
21/12/2006, 09h35

Nenaal Llaenaan [AB] Alpha & Oméga	Peut-être parce que tu crées un .url, au lieu d'un .lnk.
21/12/2006, 19h13

Drys Kaine Alpha & Oméga	And? Via l'interface graphique je peux en changer l'icône. Donc... doit bien y avoir moyen.
21/12/2006, 19h38

Drys Kaine Alpha & Oméga	Euh... non. Mais à la base j'avais scripté de l'url ( ce qui m'était venu à l'esprit pour un lecteur réseau avec un chemin unc ), donc je cherchais à coller l'icône au raccourci fait de la sorte... M'enfin, en lnk, ça marche en tout cas. Merci PS: pour ma culture, je serais cela dit intéressé de trouver comment changer l'icône d'un raccourci vers une url
21/12/2006, 23h32

Script vbs et icone

Connectés sur ce fil