У меня есть скрипт, который прикрепляет элемент к панели задач во всех ОС, кроме сборок Windows Insider.Я преобразовал его в скрипт Powershell, и он также работает на всех ОС, кроме сборки Windows Insider.Когда я запускаю его, я не получаю никаких сообщений об ошибках, ничего в Event Viewer.MS заблокировала возможность программно закреплять элементы как в меню «Пуск», так и на панели задач.Похоже, они идут дальше в следующих выпусках.Кто-нибудь еще сталкивался с этим?Вот код, который я использую.
Function PinItem(strFolder, strFile)
Dim ShortcutPath
Dim sKey1
Dim sKey2
Dim KeyValue
'----------------------------------------------------------------------
Set objFSO = CreateObject("Scripting.FileSystemObject")
ShortcutPath = strFolder & "\" & strFile
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(ShortcutPath))
With .ParseName(objFSO.GetFileName(ShortcutPath))
.InvokeVerb("{:}")
End With
End With
End With
.Run("Reg.exe delete """ & Replace(sKey1, "\\", "") & """ /F"), 0, True
End With
End Function