Const ForReading = 1, ForWriting = 2, ForAppending = 8
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile("c:\songlog.txt", ForAppending, True)
 
Sub Application_ChangedTrack
  set mi = playlist(playlist.position)
  MyFile.WriteLine(mi.ATFString("%artist% - %title%") + vbNewLine + mi.ATFString("BitRate = %bitrate%"))
End Sub