[..] Epingler un raccourci à l'écran de démarrage (win10)

[franco]

Bonjour. / Bonsoir.


Ce sujet - dont j'étais intervenu - m'intéresse toujours : http://www.autoitscript.fr/forum/viewto ... 21&t=12031
Donc je poste ici, car j'ai des questions. ^^


====

J'ai essayé (et j'essaye encore) d'épingler un raccourci (lnk) sur l'écran de démarrage.

Et cela ne fonctionne pas, malgré l’apparition de "Epingler à l'écran de démarrage" via un consolewrite.

► Afficher le texteCode

Code: [Tout sélectionner] [Déplier/Replier]

#RequireAdmin
$path = @DesktopDir & "\radiosure.lnk"
PinToTaskBand($path)


Func PinToTaskBand($path)
   $objShell = ObjCreate("shell.application")
   $objFSO = ObjCreate("Scripting.FileSystemObject")

   $strFolder = $objFSO.GetParentFolderName($path)
   $strFile = $objFSO.GetFileName($path)
   $objFolder = $objShell.Namespace($strFolder)
   $objFolderItem = $objFolder.ParseName($strFile)
    $colVerbs = $objFolderItem.Verbs


   For $itemVerb In $objFolderItem.Verbs
;~       MsgBox(0,"", $itemVerb.name)
      $var = StringReplace($itemVerb.name, "&", "")
      ConsoleWrite($var & " | ")
      If StringInStr($var, "Pin to startmenu") Or StringInStr($var, "Épingler à l’écran de démarrage") Then
         MsgBox(0, "", 1)
         $itemVerb.DoIt
      EndIf
   Next
EndFunc   ;==>PinToTaskBand

GeSHi © Extension Codebox Plus

Code: [Tout sélectionner] [Déplier/Replier]

If StringInStr($var, "Pin to startmenu") Or StringInStr($var, "Épingler à l’écran de démarrage") Then
         MsgBox(0, "", 1)
         $itemVerb.DoIt
      EndIf

GeSHi © Extension Codebox Plus

Cela m'affiche bien 1.
Mais ensuite, nada.

Quelqu'un saurait-il comment faire pour que Epingler à l'écran de démarrage fonctionne ?
Où ai-je fauté ?

Et existe-t-il un autre moyen dans le cas échéant ?


Merci d'avance les gars.
Bonne soirée / Bonne journée.