Requires the id3com.dll component be registered on the machine This should be implemented as a sendto_x script ideally.

Exporting

Dim x, id3co
 
set id3co = CreateObject("ID3Com.ID3ComTag")
x = GetSendToItems
if ubound(x,1) > 0 Then
 
for each track in x
 id3co.link track.filename
 if id3co.HasV2Tag then
  id3co.Popularity("[youremailaddress]") = track.rating * 51
  id3co.Playcount("[youremailaddress]") = track.playcount
  id3co.SaveV2Tag
 end if
 id3co.Clear
next
 
end if
quit

Importing

Dim x, id3co
 
set id3co = CreateObject("ID3Com.ID3ComTag")
x = GetSendToItems
if ubound(x,1) > 0 Then
 
for each track in x
 id3co.link track.filename
 
 'Substitute with your e-mail address or whatever was used to export it
 track.rating = id3co.Popularity("[youremailaddress]") / 51
 track.playcount = id3co.Playcount("[youremailaddress]")
 id3co.clear
next
 
end if
quit