Question

我有一个脚本，可以将项目固定到Windows OS以外的所有操作系统的任务栏上。我将其转换为Powershell脚本，并且除了Windows Insider版本之外，它还适用于所有操作系统。运行它时，没有收到任何错误消息，事件查看器中也没有任何消息。 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

VBscript无法将项目固定到Windows Insider构建上的任务栏

0 个答案: