<?xml version="1.0" encoding="utf-8"?>

<config>

    <zoom width="1296" height="100">

    </zoom>

    <rotation angle="270">

    </rotation>

    <save>

        <path>D:\0122</path>

    </save>

    <author prefix="xxoo">

    </author>

    <monitor total="10">

    </monitor>

</config>

 'Whatfor:  rename pictures with Exif property [artist]

 'Author:   lichmama nextgodhand@163.com

 'Runtime:  win-NT series(x86/x64), which installed WIA component.

 'LICENSE:

 '    Copyright ;copy; 2014-2015 lichmama nextgodhand@163.com

 '    All rights reserved.

 '    FOR NON-COMMERCIAL USE: you can use, copy, modify and distribute this code,

 '    but please keep the information of LICENSE & Author.

 '*ChangeLog:

 '    1.add zoom and rotation

 '    2.backup the folder [*.NEW] to config path

 '    reedited: 2015/04/16

 '    3.change the naming style, which supports the [alpha] property

 '    3.*not keeping the folder [*.NEW]

 '    reedited: 2015/10/27

 '    4.add monitor function, which supports the [total] property

 '    reedited: 2015/10/31, happy halloween:)

 '    5.change the config file to config.xml [original, config.ini]

 '    5.*add verifying for configurations

 '    reedited: 2015/11/1

 Set fso = CreateObject("scripting.filesystemobject")

 Set imgfile = CreateObject("wia.imagefile")

 Set sdp = CreateObject("scripting.dictionary")

 Set regex = CreateObject("vbscript.regexp")

 Set monitor = CreateObject("scripting.dictionary")

 set config = new Config_Class

 '================script starts!================

 Call sdp.Add("PNG", "PNG FILE")

 Call sdp.Add("GIF", "GIF FILE")

 Call sdp.Add("BMP", "BMP FILE")

 Call sdp.Add("JPG", "JPG FILE")

 If WScript.Arguments.Count =  Then

     Call Quit_Job(True)

 Else

     path = WScript.Arguments()

     If Not fso.FolderExists(path) Then

         Call Quit_Job(True)

     End If

 End If

 If Not ReadConfig() Then

     Call Wscript.Echo("[配置文件错误]：运行前请保证配置文件config.ini存在，并且正确！")

     Call Quit_Job(False)

 End If

 If Not fso.FolderExists(path & ".NEW") Then

     Call fso.CreateFolder(path & ".NEW")

 End If

 For Each picture In fso.GetFolder(path).Files

     extension = UCase(fso.GetExtensionName(picture))

     If sdp.Exists(extension) Then

         Call imgfile.LoadFile(picture)

         For index =  To imgfile.Properties.Count

             name = imgfile.Properties(index).Name

             If name = "Artist" Then

                 regex.Pattern ="\d*"

                 value = imgfile.Properties(index).Value

                 value = regex.Execute(value)()

                 index = CInt(value)

                 regex.Pattern = "^(0*)"

                 value = regex.Replace(value, config.author_prefix)

                 Call Zoom_Rotate()

                 Call imgfile.SaveFile(path & ".NEW\" & value & "." & extension)

                 monitor.Item(index) = path & ".NEW\" & value & "." & extension

                 Exit For

             End If

         Next

     End If

 Next

 Call Monitor_Total()

 'move the folder [*.NEW] to config path

 regex.Pattern = "([^\\]+)$"

 dest = fso.GetAbsolutePathName(path)

 dest = regex.Execute(dest)().SubMatches()

 For i= To config.save_path.Count-

     Call fso.CopyFolder(path & ".NEW", config.save_path.Item(i) & "\" & dest)

 Next

 Call fso.DeleteFolder(path & ".NEW")

 MsgBox "批处理执行完毕！",vbInformation,"Image Auto-Handler v0.1"

 Call Quit_Job(False)

 '================script ends here==============

 Function ReadConfig()

 On Error Resume Next

     xmlsource = Replace(WScript.ScriptFullName, WScript.ScriptName, "config.xml")

     If fso.FileExists(xmlsource) Then

         Call config.init_config(xmlsource)

         For i =  To config.monitor_total

             Call monitor.Add(i, "")

         Next

         For i =  To config.save_path.Count-

             If Not fso.FolderExists(config.save_path.Item(i)) Then

                 WScript.Echo "[配置文件错误]：保存路径不存在！"

                 Call Quit_Job(False)

             End If

         Next

         ReadConfig = True

     Else

         ReadConfig = False

     End If

 If Err.Number <>  Then

     ReadConfig = False

 End If

 End Function

 Sub Monitor_Total()

     regex.Pattern = "(" & config.author_prefix & ")\d+"

     If monitor.Item() = "" Then

         For i =  To monitor.Count

             If monitor.Item(i) <> "" Then

                 clone = regex.Replace(monitor.Item(i), "$1" & )

                 monitor.Item() = clone

                 Call fso.CopyFile(monitor.Item(i), monitor.Item())

                 Exit For

             End If

         Next

     End If

     For i =  To monitor.Count

         If monitor.Item(i) = "" Then

             clone = regex.Replace(monitor.Item(i-), "$1" & i)

             monitor.Item(i) = clone

             Call fso.CopyFile(monitor.Item(i-), monitor.Item(i))

         End If

     Next

 End Sub

 Sub Zoom_Rotate()

     Set imgproc = CreateObject("wia.imageprocess")

     'zoom

     Call imgproc.Filters.Add(imgproc.FilterInfos("Scale").FilterID)

     imgproc.Filters().Properties("MaximumWidth") = config.zoom_width

     imgproc.Filters().Properties("MaximumHeight") = config.zoom_width

     'rotate

     Call imgproc.Filters.Add(imgproc.FilterInfos("RotateFlip").FilterID)

     imgproc.Filters().Properties("RotationAngle") =

     'apply

     Set imgfile = imgproc.Apply(imgfile)

 End Sub

 Sub Quit_Job(force)

     If force = True Then

         MsgBox "[使用方法]: 将文件夹拖放到脚本上，开始重命名图片。", vbInformation, "Image Auto-Handler v0.1"

     End If

     Set fso = Nothing

     Set imgfile = Nothing

     Set sdp = Nothing

     Set regex = Nothing

     Set monitor = Nothing

     Call WScript.Quit()

 End Sub

 Class Config_Class

     Private my_zoom_width

     Private my_zoom_height

     Private my_rotation_angle

     Private my_save_path

     Private my_author_prefix

     Private my_monitor_total

     Public Sub init_config(xmlsource)

         Set xml = CreateObject("msxml2.domdocument")

         Call xml.load(xmlsource)

         Set zoom = xml.getElementsByTagName("zoom").item()

         my_zoom_width = zoom.attributes.getNamedItem("width").text

         my_zoom_height = CInt(zoom.attributes.getNamedItem("height").text)

         Set rotation = xml.getElementsByTagName("rotation").item()

         my_rotation_angle = rotation.attributes.getNamedItem("angle").text

         Set save = xml.getElementsByTagName("save").item()

         Set my_save_path = CreateObject("scripting.dictionary")

         For i =  To save.childNodes.length -

             Call my_save_path.Add(i, save.childNodes.item(i).text)

         Next

         Set author = xml.getElementsByTagName("author").item()

         my_author_prefix = author.attributes.getNamedItem("prefix").text

         Set xml_monitor = xml.getElementsByTagName("monitor").item()

         my_monitor_total = xml_monitor.attributes.getNamedItem("total").text

     End Sub

     Public Property Get zoom_width

         zoom_width = my_zoom_width

     End Property

     Public Property Get zoom_height

         zoom_height = my_zoom_height

     End Property

     Public Property Get rotation_angle

         rotation_angle = my_rotation_angle

     End Property

     Public Property Get save_path

         Set save_path = my_save_path

     End Property

     Public Property Get author_prefix

         author_prefix = my_author_prefix

     End Property

     Public Property Get monitor_total

         monitor_total = my_monitor_total

     End Property

 End Class