(un)Pinning Taskbar Items.md

This is barely worth sharing, but you can, for instance, get everything pinned to the taskbar, and unpin it from the start menu

Get-Application -PinnedToTaskbar | UnpinStart

Huge Caveat: I haven't figured this all out.

1. I can't figure out a way to get the order of the taskbar items...
2. Many items don't have the "pin to taskbar" verb when called this way (I don't know why) and you have to do something ridiculous like making a shortcut to them first (thus, the task bar folder) and then pin that.

Taskbar.ps1

<# # Get all the Class IDs
$CLSID = Get-ItemProperty "HKLM:\SOFTWARE\Classes\CLSID\{*}\" "(default)" -ErrorAction Ignore
| Select-Object @{Name = "Guid"; Expr = { $_.PSChildName } }, @{Name = "DisplayName"; Expr = { $_."(default)"}}

[PSCustomObject]@{ Name = "All Tasks";             GUID = "{ED7BA470-8E54-465E-825C-99712043E01C}" },
[PSCustomObject]@{ Name = "User Pinned";           GUID = "{1f3427c8-5c10-4210-aa03-2ee45287d668}" },
[PSCustomObject]@{ Name = "Applications";          GUID = "{4234d49b-0245-4df3-b780-3893943456e1}" },
[PSCustomObject]@{ Name = "Programs and Features"; GUID = "{7b81be6a-ce2b-4676-a29e-eb907a5126c5}" }
#>
function Get-ComFile {
    param($item)
    Write-Host $item.Name -for cyan
    foreach ($item in $item.Items()) {
        if ($item.IsFolder) {
            Get-ComFile $item.GetFolder()
        } else { $item }
    }
}

function Get-Application {
    param(
        [Parameter(ValueFromPipeline, ValueFromPipelineByPropertyName)]
        [string]$Name = "*",
        [switch]$PinnedToTaskbar,
        [switch]$PinnedToStart,
        [guid[]]$Namespace = @(
            "{4234d49b-0245-4df3-b780-3893943456e1}" # Applications
            # "1f3427c8-5c10-4210-aa03-2ee45287d668" # User Pinned
        )
    )
    begin {
        $App = New-Object -Com Shell.Application
    }
    process {
        foreach ($ns in $Namespace) {
            Get-ComFile ($App.NameSpace("shell:::$ns")) | Where-Object {
                ($_.Name -like $Name) -and
                (!$PinnedToTaskbar -or @($_.Verbs()).Name -replace "&" -eq "Unpin from taskbar") -and
                (!$PinnedToStart -or @($_.Verbs()).Name -replace "&" -eq "Unpin from start")
            }
        }
    }
}

function New-Shortcut {
    param (
        # Should be a .lnk file path
        [string]$Path,
        [string]$TargetPath
    )

    $Shell = New-Object -ComObject WScript.Shell
    $Shortcut = $Shell.CreateShortcut($Path)
    $Shortcut.TargetPath = $TargetPath
    $Shortcut.Save()
}

filter UnpinTaskbar {
    @($_.Verbs()).Where{ $_.Name -replace "&" -eq "Unpin from taskbar" }.DoIt()
}

filter UnpinStart {
    @($_.Verbs()).Where{ $_.Name -replace "&" -eq "Unpin from Start" }.DoIt()
}

filter PinTaskbar {
    @($_.Verbs()).Where{ $_.Name -replace "&" -eq "Pin to taskbar" }.DoIt()
}

filter PinStart {
    @($_.Verbs()).Where{ $_.Name -replace "&" -eq "Pin to Start" }.DoIt()
}