Windows TaskBar不显示新项目

由于Windows 7（也是mayne Vista），我在将项目固定到任务栏时遇到了问题。任务栏的路径为%appdata%\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar，但是手动添加.bat，.exe或什至在其中粘贴.lnk都不会在任务栏上显示任何新内容，即使重新启动也是如此。粘贴到Default用户的位置不会解决任何问题。

为什么会这样？将一些东西粘贴到该位置才能正常工作后该怎么办？

我对拖放不感兴趣，因为我编写了脚本并且该脚本是批处理的，所以我也确实不需要非批处理解决方案（例如，在带有vbs的任务栏上创建项目）。

— KeyWeeUsr
source

这是因为在钉扎某些物品时也会记录钉扎的项目。

不幸的是，因此，批处理解决方案将无法工作。但是，vbscript可以使其工作。它也是一个脚本，例如.cmd或.bat可以在其他计算机上并通过登录脚本运行。另外（但很丑），您可以使用wscript或cscript从批处理文件执行脚本。

要将项目固定到任务栏，请使用以下脚本：

' print name of item

Const CSIDL_COMMON_PROGRAMS = &H17
Const CSIDL_PROGRAMS = &H2
Set objShell = CreateObject(“Shell.Application”)
Set objAllUsersProgramsFolder = objShell.NameSpace(CSIDL_COMMON_PROGRAMS)
strAllUsersProgramsPath = objAllUsersProgramsFolder.Self.Path
Set objFolder = objShell.Namespace(strAllUsersProgramsPath & “\Accessories”)
Set objFolderItem = objFolder.ParseName(“Calculator.lnk”)
Set colVerbs = objFolderItem.Verbs
For Each objVerb in colVerbs
    Wscript.Echo objVerb
Next

并固定实际物品

Const CSIDL_COMMON_PROGRAMS = &H17
Const CSIDL_PROGRAMS = &H2
Set objShell = CreateObject(“Shell.Application”)
Set objAllUsersProgramsFolder = objShell.NameSpace(CSIDL_COMMON_PROGRAMS)
strAllUsersProgramsPath = objAllUsersProgramsFolder.Self.Path
Set objFolder = objShell.Namespace(strAllUsersProgramsPath & “\Accessories”)
Set objFolderItem = objFolder.ParseName(“Calculator.lnk”)
Set colVerbs = objFolderItem.Verbs
For Each objVerb in colVerbs
    If Replace(objVerb.name, “&”, “”) = “Pin to Start Menu” Then objVerb.DoIt
Next

来源：https : //blogs.technet.microsoft.com/deploymentguys/2009/04/08/pin-items-to-the-start-menu-or-windows-7-taskbar-via-script/

— LPChip
source