fsc_trim.vbs

Option Explicit

Dim imageMagickHome     ' ImageMagick 安装目录
Dim imageMagickOption   ' ImageMagick 使用选项
Dim oShell

imageMagickHome = "H:\Softs\UtilityPrograms\ImageMagick-7.1.1-11\"
imageMagickOption = " -trim "

' 可以执行 cmd 的对象
Set oShell = CreateObject("WScript.Shell")

' 必要地停顿（单位：毫秒）
WScript.Sleep 2000

' 执行图像操作（mogrify 可原地修改文件）
oShell.Run imageMagickHome & "mogrify.exe" & imageMagickOption & WScript.Arguments.Unnamed(0), 0, True

' 必要地停顿（单位：毫秒）
WScript.Sleep 1000