Windows版iTunesで再生中の楽曲を#NowPlayingをつけてツイートするページを開く cmd版,WSH(JScript)版,Powershell版

#NowPlaying.bat

powershell (New-Object -C 'iTunes.Application').CurrentTrack^|%%{start('https://twitter.com/intent/tweet?text='+[Uri]::EscapeDataString(\"#NowPlaying $($_.Name) - $($_.Artist) ($($_.Album))\"))}

#NowPlaying.js

var t=new ActiveXObject("iTunes.Application").CurrentTrack;
new ActiveXObject("WScript.Shell").Run("https://twitter.com/intent/tweet?text="+encodeURIComponent("#NowPlaying "+t.Name+" - "+t.Artist+" (Album: "+t.Album+")"));

#NowPlaying.ps1

# $t=(New-Object -Com "iTunes.Application").CurrentTrack;
# Add-Type -AssemblyName ($w="System.Web");
# $w="$w.HttpUtility" -as [type];
# start ("https://twitter.com/intent/tweet?text="+$w::UrlEncode("#NowPlaying $($t.Name) - $($t.Artist) (Album: $($t.Album))"))

# System.Uri の方で十分であった
# $t = (New-Object -Com "iTunes.Application").CurrentTrack;
# start ("https://twitter.com/intent/tweet?text=" + [System.Uri]::EscapeDataString("#NowPlaying $($t.Name) - $($t.Artist) (Album: $($t.Album))"))

# ついでに一行にする
(New-Object -Com "iTunes.Application").CurrentTrack | % { start ("https://twitter.com/intent/tweet?text=" + [System.Uri]::EscapeDataString("#NowPlaying $($_.Name) - $($_.Artist) (Album: $($_.Album))")) }

cmd版のコマンドをダブルクォーテーションで囲う必要はなかったですね
"が2つ減って、|が^|になったので1文字短くなりました