'ドロップしたフォルダのPNGファイルを一括して16色に減色するVBScript
'複数フォルダ可。フォルダのpathに全角文字を含んでいると失敗する
'VBScriptとImageMagickの対応する文字コードが違うのが原因
'基本的にVBScriptはUTF-8が使えない

Set objWshShell = WScript.CreateObject("WScript.Shell")
Set objParm = Wscript.Arguments

If objParm.Count < 1 Then
WScript.echo "フォルダをドロップして下さい"
Else
For i=1 To objParm.Count
cmd = "mogrify -colors 16 """ & objParm(i - 1) & "\*.png"""
objWshShell.Run cmd
Next
End If

Set objWshShell = Nothing


↑を「png一括減色16ドロップ対応.vbs」とでも名前付けて保存して実行すると、
ドロップしたフォルダ(複数可)にある全てのPNGファイルを使用色数16にまで減色する

※注意 上書き保存