raccourci2.jpg 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 :raccourci.jpg

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.