'PNGファイルを一括して16色に減色するVBScript

Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "mogrify -colors 16 *.png"
Set objWshShell = Nothing

↑を「png一括減色16.vbs」とでも名前付けて保存して実行すると、
同じフォルダにある全てのPNGファイルを使用色数16にまで減色する

※注意 上書き保存