[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/...-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]

Рекомендуют syspin, не пробовал.

[Vanadiy777]

Рекомендуют syspin, не пробовал. »

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