List ID3 metadata tags from mp3 or wma files using VB Script 

'List of all mp3 files In one folder
'Read it's id3 tags
'2005 Antonin Foller, Motobit Software
Sub ListID3Tags(sFolder)
  'get FileSystemObject To enumerate files
  Dim FS: Set FS = CreateObject("Scripting.FileSystemObject")
  
  'call ListID3TagsFS Function with a folder object
  ListID3TagsFS FS.GetFolder(sFolder)
End Sub

Sub ListID3TagsFS(Root)
  Dim SubFolder, File
  
  'enumerate all files In the folder
  For Each File In Root.Files
    'select only mp3 And wma files
    Select Case LCase(Right(File.Name, 4))
      Case ".mp3", ".wma": ListID3TagsFile File
    End Select
  Next

  'process all subfolders
  For Each SubFolder In Root.SubFolders
    ListID3TagsFS SubFolder
  Next
End Sub

Sub ListID3TagsFile(File)
  'Get id3 object To change data
  Dim id3: Set id3 = CreateObject("CDDBControl.CddbID3Tag")

  'load id3 data from a file, read only
  id3.LoadFromFile File.Path, True
  
  'print some of id3 tags
  WScript.Echo File.Name, id3.Album, id3.Title, id3.LeadArtist
End Sub

<A
 Href="http://www.motobit.com/tips/detpg_list-id3-tags-script/"
 Title="Let's you list all your media
  files and collect metadata tags
  from the files."
>List ID3 metadata tags from mp3 or wma files using VB Script</A>