Закрепить на панели задач в Windows 10 - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - Закрепить на панели задач в Windows 10 (http://forum.oszone.net/showthread.php?t=336911)

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

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

Скрытый текст

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 ?

Цитата:

Цитата Valek271183

но этот способ не работает на Windows 10, »

А как выглядит команда контекстного меню на Windows 10?

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

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

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

Цитата:

Цитата Valek271183

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

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

ответ предложенный в стаковерфлоу
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"

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

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

Цитата:

Цитата Sham

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

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