Получить список ссылок, закрепленных на панели задач - PullRequest
Новая
       16

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

2 голосов
/ 12 января 2012

Есть ли способ получить список или таблицу или что-то из всех приложений / ссылок, которые вы прикрепили к панели задач в 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

1 Ответ

4 голосов
/ 13 января 2012

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

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
...