Windows版のiTunesで現在聴いてる曲の情報を取得する(VBS編)

「Windows版のiTunesで現在聴いてる曲の情報を取得する(Javascript編)」、「Windows版のiTunesで現在聴いてる曲の情報を取得する(C#編) - IIJIMASの日記」の続きエントリ…（思いつき）

これは、VBSのInputBox関数の間違った使い方だが・・・
以下を新規テキストに貼り付けて、保存名前をCurrentiTunesMusic.vbsとして、ダブルクリックすれば・・・
CurrentiTunesMusic.vbs

Set iTunesApp = CreateObject("iTunes.Application")
Set track  = iTunesApp.CurrentTrack
text = "[聴いてる♪]" & "「" & track.Name & " - " & track.Album+"」 by " & track.Artist
r = InputBox("","iTunesで現在聴いてる曲",text)
Set iTunesApp = Nothing

[Ctrl]+[C]でコピーすれば、同じだ…(笑)