Unpin taskbar icons

unpinner.vbs

Set ShellApp = CreateObject("Shell.Application")
Set FSO = CreateObject("Scripting.FileSystemObject")

homeFolder = ShellApp.NameSpace(&H28).Self.Path

PinnedPath = homeFolder & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar"

Set PinnedNS = ShellApp.NameSpace(PinnedPath)
Set PinnedFolder = FSO.GetFolder(PinnedPath)
Set PinnedFiles = PinnedFolder.Files

For each file In PinnedFiles
    if FSO.GetExtensionName(file.Name) = "lnk" Then
        Set FolderItem = PinnedNS.ParseName(file.Name)
        For each verb in FolderItem.Verbs
            english = LCase(Replace(verb, "&", ""))
            if english = "unpin from taskbar" Then verb.DoIt
        Next
    End If
Next

Set FSO = Nothing
Set ShellApp = Nothing