Question

无论如何要检索列表或表格或者你在VBScript中固定到任务栏的所有应用程序/链接中的某些内容？

我有一个脚本，通过在开始菜单中查找它们来解决某些问题，但我在开箱即用的不同品牌的计算机上运行它（设置脚本的一部分）但不同品牌的计算机固定不同的应用程序默认情况下到任务栏。

我只想获得那里的任何内容列表，然后调用该链接的unpin

这是我用来取消固定项目

的代码示例

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

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

1 个答案: