Получить список ссылок, закрепленных на панели задач

Есть ли возможность получить список или таблицу или что-то из всех приложений/ссылок, которые вы прикрепили к панели задач в VBScript?

У меня есть скрипт, который открепляет некоторые из них, просматривая их в меню Пуск, но я запускаю его на разных марках компьютеров из коробки (часть сценария установки), но разные марки компьютеров по умолчанию прикрепляют разные приложения к панели задач.

Я просто хочу получить список того, что там есть, а затем позвонить открепление для этой ссылки

Это пример кода, который я использую для открепления элемента 

If objFSO.FileExists(strCurrentUserStartFolderPath & "ProgramsInternet 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
1 2
vbscript taskbar

1 ответ:

Это выведет список элементов, прикрепленных к панели задач со списком доступных глаголов для каждого элемента.

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
4