B-) の独り言 - emlファイル内容のリスト化

今週はシアトルに行けないぶんスクリプトとか頑張る週なのです。というわけで、なければ作ってしまいましょう。
maillog.vbs とかって名前で保存して、コマンドラインから C:\> maillog.vbs foo.eml とかで eml の主要なヘッダを表示します。表示したいヘッダとか出力する形式とかは自由に書き換えられますね。

Dim FileName
Dim Msg
Dim Src
Dim Attach

FileName = WScript.Arguments( 0 )
Set Msg = CreateObject( "CDO.Message" )
Set Src = CreateObject( "ADODB.Stream" )

Src.Open
Src.LoadFromFile FileName

Msg.DataSource.OpenObject Src, "_Stream"

WScript.Echo "Subject: " & Msg.Subject
WScript.Echo "From: " & Msg.From
WScript.Echo "To: " & Msg.To
For Each Attach In Msg.Attachments
    WScript.Echo "Attach: " & Attach.FileName
Next
Src.Close