vkill'blog

wget -P c:\ http://download.microsoft.com/download/WinXPHome/Utility/2.0/WXP/EN-US/WIAAutSDK.zip

copy c:\wiaaut.dll %windir%
regsvr32 %windir%\wiaaut.dll /s

'查询图片文件的高度和宽度
Set objImage = CreateObject("WIA.ImageFile")
objImage.LoadFile "C:\Scripts\Test.gif"
Wscript.Echo "Width: " & objImage.Width
Wscript.Echo "Height: " & objImage.Height

'图片尺寸转换
'http://www.cn-dos.net/forum/viewthread.php?tid=24119  by:electronixtar
Set oImg = CreateObject("WIA.ImageFile")
Set oProc = CreateObject("WIA.ImageProcess")
oImg.LoadFile "Water lilies.jpg" '打开当前文件夹里的Water lilies.jpg
oProc.Filters.Add oProc.FilterInfos("Scale").FilterID '添加一个 Scale 的滤境
oProc.Filters(1).Properties("MaximumWidth")="400" '定义新图片的 宽
oProc.Filters(1).Properties("MaximumHeight")="300" '定义新图片的 高
Set oNewImg = oProc.Apply(oImg) '保存新图片到 oNewImg 对象里
oNewImg.SaveFile "New.jpg" '把oNewImg对象保存为图片

'转换图片格式
'http://www.cn-dos.net/forum/viewthread.php?tid=24514  by:electronixtar
Dim Img '图片文件
Dim IP '图片处理
Set Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
Img.LoadFile "Bliss.bmp" '载入原始图片
IP.Filters.Add IP.FilterInfos("Convert").FilterID
IP.Filters(1).Properties("FormatID").Value = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}" '这里的格式可以自行设定，见附表
IP.Filters(1).Properties("Quality").Value = 5 '图片质量
Set Img = IP.Apply(Img) '应用
Img.SaveFile "BlissCompressed.jpg" '保存转换后的图片
'附注:
'BMP {B96B3CAB-0728-11D3-9D7B-0000F81EF32E}
'PNG {B96B3CAF-0728-11D3-9D7B-0000F81EF32E}
'GIF {B96B3CB0-0728-11D3-9D7B-0000F81EF32E}
'JPEG {B96B3CAE-0728-11D3-9D7B-0000F81EF32E}
'TIFF {B96B3CB1-0728-11D3-9D7B-0000F81EF32E}