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.
J'ai besoin de vous pour le modifier afin d'épingler pour tous les utilisateurs.
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
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 !
Partager