Option Explicit

Const AppName = "MP3 Tags Reader sample 1"

' проверяем число аргументов
If WScript.Arguments.Count <> 1 Then
	ShowHelp
	WScript.Quit
End If

' получаем имя MP3-файла
Dim Mp3Name
Mp3Name = WScript.Arguments(0)

' создаем объект Mp3TagsReader
Dim Reader
Set Reader = CreateObject("Scripting.Mp3TagsReader")

' читаем теги файла
Dim Result
Result = Reader.Read(Mp3Name)

' если ошибка - показываем ее код
If Result <> 0 Then
	MsgBox "Error " & Result & " reading MP3 tags from file" & _
		vbNewLine & Mp3Name, vbExclamation, AppName
	WScript.Quit
End If

' если все нормально - показываем все теги
MsgBox "File:" & vbTab & Reader.FileName & vbNewLine & _
	"Title:" & vbTab & Reader.Title & vbNewLine & _
	"Artist:" & vbTab & Reader.Artist & vbNewLine & _
	"Album:" & vbTab & Reader.Album & vbNewLine & _
	"Year:" & vbTab & Reader.Year & vbNewLine & _
	"Comment:" & vbTab & Reader.Comment & vbNewLine & _
	"Genre:" & vbTab & Reader.Genre & _
	" (" & Reader.GenreIndex & ")" & vbNewLine & _
	"Track:" & vbTab & Reader.Track & vbNewLine, _
	vbInformation, AppName

' уничтожаем созданный ранее объект
Set Reader = Nothing

' показывает справку
Sub ShowHelp
	MsgBox "MP3 file name is not specified." & _
		vbNewLine & vbNewLine & "Usage:" & vbNewLine & _
		"    " & WScript.ScriptName & " mp3_file_name", _
		vbCritical, AppName
End Sub