Function ConvertBin($Binary)
  Dim $strChar, $i
  For $i=1 to Len($Binary)
    $strChar = Chr(Asc(SubStr($Binary,$i,1)))
    $ConvertBin = $ConvertBin + $strChar
  Next
EndFunction

Dim $objStream, $strFile, $strTag, $strSongName
Dim $strArtist, $strAlbum, $strYear, $strComment, $strGenre
$strFile = "C:\mp3\somefile.mp3"

;Create the Stream object
$objStream = CreateObject("ADODB.Stream")
$objStream.Type = 1

;Open the stream
$objStream.Open
$objStream.LoadFromFile($strFile)

;Read the last 128 bytes
$objStream.Position = $objStream.size - 128

;Read the ID3 v1 tag info
$strTag = ConvertBin($objStream.Read(3))
If ucase($strTag) = "TAG"
  $strSongName = ConvertBin($objStream.Read(30))
  $strArtist = ConvertBin($objStream.Read(30))
  $strAlbum = ConvertBin($objStream.Read(30))
  $strYear = ConvertBin($objStream.Read(4))
  $strComment = ConvertBin($objStream.Read(30))
EndIf

;Display the results
? "ID3 Tag info for: " + $strFile
? "Artist: " + $strArtist
? "Track: " + $strSongName
? "Album: " + $strAlbum
? "Year: " + $strYear
? "Comment: " + $strComment

$objStream.Close
$objStream = ""