Epingler un raccourci pour tous les utilisateurs

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:

---

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 !