Someone

alias itunes {
  if ($com(it) == $null) {
    .comopen it iTunes.Application
  }
  if ($com(ct)) {
    .comclose ct
  }
  .echo -q $com(it,CurrentTrack,3,dispatch* ct)
  .echo -q $com(ct,Artist,3)
  var %a1 = $com(ct).result
  .echo -q $com(ct,Album,3)
  var %a2 = $com(ct).result
  .echo -q $com(ct,Genre,3)
  var %g = $com(ct).result
  .echo -q $com(ct,Time,3)
  var %time = $com(ct).result
  .echo -q $com(ct,Name,3)
  var %t = $com(ct).result
  msg $active 14[2iTunes14] $+(14[02,$iif(%t,%t,Unknown),14]) by $+(14[2,$iif(%a1,%a1,Unknown),14]) on $+(14[2,$$iif(%a2,%a2,Unknown),14])
}