Закрепить на панели задач в Windows 10

[Valek271183]

Подскажите, для закрепления ярлыка использую следующую команду

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Microsoft Office")
Set objFolderItem = objFolder.ParseName("Microsoft Office Word 2007.lnk")
Set colVerbs = objFolderItem.Verbs
For Each objVerb in colVerbs
If Replace(objVerb.name, "&", "") = "Закрепить на панели задач" Then objVerb.DoIt
Next

но этот способ не работает на Windows 10, как закрепить на панели задач в Windows 10 ?

[Iska]

но этот способ не работает на Windows 10, »
А как выглядит команда контекстного меню на Windows 10?

[Valek271183]

Надпись на ярлыке та же Закрепить на панели задач

Если нажать правой кнопкой мыши на ярлыке и выбрать пункт Закрепить на панели задач то так работает, а .vbs почему то нет

[man8531]

тоже интересен этот вопрос. ибо простое копирование в C:\Users\user\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar ничего не даёт: он копирует, но на панели не отображает ничего

[Iska]

Надпись на ярлыке та же Закрепить на панели задач »
Тады я пас: у меня нет Windows 10, не на чем экспериментировать, отчего тот же самый код не работает под новой ОС.

[Serguei Kouzmine]

ответ предложенный в стаковерфлоу
https://stackoverflow.com/questions/31720595/pin-program-to-taskbar-using-ps-in-windows-10
работает на 10


' origin: https://stackoverflow.com/questions/31720595/pin-program-to-taskbar-using-ps-in-windows-10


If WScript.Arguments.Count < 1 Then WScript.Quit
'----------------------------------------------------------------------
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFile = WScript.Arguments.Item(0)
sKey1 = "HKCU\Software\Classes\*\shell\{:}\\"
sKey2 = Replace(sKey1, "\\", "\ExplorerCommandHandler")
'----------------------------------------------------------------------
With WScript.CreateObject("WScript.Shell")
KeyValue = .RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer" & _
"\CommandStore\shell\Windows.taskbarpin\ExplorerCommandHandler")

.RegWrite sKey2, KeyValue, "REG_SZ"

With WScript.CreateObject("Shell.Application")
With .Namespace(objFSO.GetParentFolderName(objFile))
With .ParseName(objFSO.GetFileName(objFile))
.InvokeVerb("{:}")
End With
End With
End With

.Run("Reg.exe delete """ & Replace(sKey1, "\\", "") & """ /F"), 0, True
End With
'----------------------------------------------------------------------




cscript.exe taskbar_attach.vbs "c:\ProgramData\Microsoft\Windows\Start Menu\Programs\XnView\XnView.lnk"

[Valek271183]

Не получается закрепить на панели задач в Windows 10 21H2 используя метод, описанный в последнем посте Serguei Kouzmine. Подскажите, как ещё можно закрепить ярлыки на панели задач?

[Sham]

Рекомендуют (https://stackoverflow.com/questions/31720595/pin-program-to-taskbar-using-ps-in-windows-10/34182076#34182076) syspin, не пробовал.

[Vanadiy777]

Рекомендуют syspin, не пробовал. »
Sham, для закрепления ярлыков в Панели задач syspin не отрабатывает ни в Windows 10 21H2, ни в Windows 11...