Bonjour,

j'ai un bout de script récupéré sur le net pour épingler un raccourci dans la barre de tâche de l'utilisateur.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
If objFSO.FileExists(strAllUsersProgramsPath & "\Microsoft Office\Microsoft Word 2010.lnk") Then
Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Microsoft Office")
Set objFolderItem = objFolder.ParseName("Microsoft Word 2010.lnk")
Set colVerbs = objFolderItem.Verbs
For Each objVerb in colVerbs
    If Replace(objVerb.name, "&", "") = "Épingler au menu Démarrer" Then objVerb.DoIt
Next
End If
J'ai besoin de vous pour le modifier afin d'épingler pour tous les utilisateurs.
Au lieu de : C:\Users\USER_1\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar
il faudrait : C:\Users\Default\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch

Merci d'avance !