以下为vbs代码：
在实际使用过程中，比如Test.jpg为1600X1200分辨率的，则生成的New.jpg分辨率其实是1280X960，并不是我想要的1280X1024，也就是上面的代码只能做等比缩放。有什么办法能用vbs按固定格式缩放图片吗？
Set oImg = CreateObject("WIA.ImageFile")
Set oProc = CreateObject("WIA.ImageProcess")
oImg.LoadFile "Test.jpg" '打开当前文件夹里的Water lilies.jpg
oProc.Filters.Add oProc.FilterInfos("Scale").FilterID '添加一个 Scale 的滤境
oProc.Filters(1).Properties("MaximumWidth")="1280" '定义新图片的 宽
oProc.Filters(1).Properties("MaximumHeight")="1024" '定义新图片的 高
Set oNewImg = oProc.Apply(oImg) '保存新图片到 oNewImg 对象里
oNewImg.SaveFile "New.jpg" '把oNewImg对象保存为图片在实际使用过程中，比如Test.jpg为1600X1200分辨率的，则生成的New.jpg分辨率其实是1280X960，并不是我想要的1280X1024，也就是上面的代码只能做等比缩放。有什么办法能用vbs按固定格式缩放图片吗？
