タスクバーに固定されているリンクの一覧を取得

Question

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 

Answer 1

の固定を解除するために使用するコードの例です。そのリンクのため

の固定を解除を呼び出したいです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