Voici un script VBS permettant de créer different raccourci sur votre bureau. Dans mon exemple, nous allons créer :
- Raccourci d'un site internet (L'intranet de la société par Exemple)
- Raccourci d'Internet Explorer
- Raccourci d'un Lecteur réseau
Il est possible de le jumeler avec Montage lecteur réseau par GPO en fonction de votre groupe et le compiler en" EXE" avec "Convertir Bat en Exe".
Pour créer un raccouci en VBS, il faut indiquer l'icone à utiliser. Sur Windows, il existe une petite librairie d'icone se trouvant dans une DLL nommé "shell32.dll" se trouvant dans le répertoire "C:\Windows\System32". Pour indiquer l'icone que l'on désire, il faut utiliser la commande suivante :
oLink.IconLocation = "C:\Windows\System32\[shell32.dll|tag:shell32.dll],__X__"
Le X est un nombre qui correspond à un icone. Pour connaitre le nombre exacte, il faut faire un clique droit sur un raccourci, onglet "Raccourci", "Changer d'icône...". Attention, la numerotation commence par 0 :
Voici l'exemple du script :
'================================================================================ ' ' Verifie que les variables soient bien déclaré ' '================================================================================ Option Explicit '================================================================================ ' ' Déclaration des variables ' '================================================================================ Dim wshshell, network, fso, shell, cheminBureau, programFiles, lnkIntranet, IE, lecteur, oLink Set wshshell = [CreateObject("WScript.Shell")|tag:CreateObject("WScript.Shell")] Set network = Wscript.CreateObject("WScript.Network") Set fso = CreateObject("Scripting.FileSystemObject") Set Shell = CreateObject("WScript.Shell") ' Indique le chemin du bureau cheminBureau = [Shell.SpecialFolders|tag:Shell.SpecialFolders]("Desktop") ' Indique le chemin de programfiles programFiles = WshShell.ExpandEnvironmentStrings("%PROGRAMFILES%") ' Indique le chemin du raccourci du site internet lnkIntranet = cheminBureau & "\Site Romain Tiennot.URL" ' Indique le chemin du raccourci d'Internet Explorer IE = cheminBureau & "\Internet Explorer.lnk" ' Indique le chemin du raccourci du lecteur Reseau lecteur = cheminBureau & "\Localhost.[lnk|tag:lnk]" '================================================================================ ' ' Création du raccoucie du site internet ' '================================================================================ Set oLink = [Shell.CreateShortcut|tag:Shell.CreateShortcut](lnkIntranet) oLink.[TargetPath|tag:TargetPath] = "http://romain.tiennot.fr" oLink.Save '================================================================================ ' ' Création du raccouci Internet Explorer ' '================================================================================ Set oLink = Shell.CreateShortcut(IE) ' Indique l'icone à utiliser oLink.[IconLocation|tag:IconLocation] = "C:\Windows\System32\shell32.dll,220" oLink.TargetPath = ProgramFiles & "\internet explorer\iexplore.exe" [oLink.Save|tag:oLink.Save] '================================================================================ ' ' Création du raccourci du Lecteur Réseau ' '================================================================================ Set oLink = Shell.CreateShortcut(lecteur) ' Indique l'icone à utiliser oLink.IconLocation = "C:\Windows\System32\shell32.dll,9" oLink.TargetPath = "\\127.0.0.1" oLink.Save
Vous pouvez retrouver l'exemple en annexe.
A bientôt.