'Noah本体の場所を指定
Noah = "C:\bin\noah3193\Noah.exe"
'渡されたファイルの処理
With Wscript
Set objParm = .Arguments
If objParm.Count = 0 Then
.echo "ファイルをドラッグ&ドロップしてください。"
.Quit()
End If
'展開先のフォルダを選択
set objFolder = CreateObject("Shell.Application").BrowseForFolder(0, "展開先のフォルダを選択", 0, "c:\\")
If objFolder Is Nothing Then .Quit()
'ファイル毎にオプションをつけてNoahを起動
Set WshShell = CreateObject("WScript.Shell")
For i=0 To objParm.Count-1
WshShell.Run Noah & " -x ""-d" & _
objFolder.Items().Item().Path & """ """ & objParm(i) & """", 1, True
Next
End With