获取固定到任务栏的链接列表

有没有办法检索一个列表或表格或者所有应用程序/链接固定到VBScript中的任务栏？获取固定到任务栏的链接列表

我有一个脚本，通过在开始菜单中查找它们，从而取消某些特定的脚本，但我在不同品牌的计算机上开箱即用（设置脚本的一部分），但不同品牌的电脑针脚不同应用程序默认为任务栏。

我只是想获得的一切是有一个列表，然后调用钉住该链接

这是我用来取消固定项目的代码示例

If objFSO.FileExists(strCurrentUserStartFolderPath & "\Programs\Internet Explorer.lnk") Then 
    Set objFolder = objShell.Namespace(strCurrentUserStartFolderPath & "\Programs") 
    Set objFolderItem = objFolder.ParseName("Internet Explorer.lnk") 
    Set colVerbs = objFolderItem.Verbs 
    For Each objVerb in colVerbs 
     If Replace(objVerb.name, "&", "") = "Unpin from Taskbar" Then objVerb.DoIt 
    Next 
End If

来源

2012-01-12 Nexion

作为一般规则，你不应该搞乱任务栏。你为什么做这个？ – 2012-01-12 18:43:29

我必须配置大量计算机才能工作，这只是我的初始脚本的一部分，让他们为客户做好准备，只需清除品牌公司在那里投放的所有垃圾。 – Nexion 2012-01-12 18:54:48

所以，我认为你不能只是设置一台电脑，并将其用作其余的图像。 – 2012-01-12 21:12:27

这将打印固定到TaskBar的项目列表以及每个项目的可用动词列表。

const APPDATA = &H1a 

Set oShell = CreateObject("Shell.Application") 
Set oAppData = oShell.NameSpace(APPDATA) 
sAppData = oAppData.Self.Path 
set oTaskBar = oShell.NameSpace(sAppData & "\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar") 

For Each oItem in oTaskBar.Items 
    WScript.Echo oItem.Name 
    For Each oVerb in oItem.Verbs 
    WScript.Echo " " & oVerb.Name 
    Next 
Next

来源

2012-01-12 20:49:48 MBu

可以将项目固定到任务栏，但不存在于此文件夹中。 – 2016-08-16 14:15:24

获取固定到任务栏的链接列表

回答

相关问题