Graphics Mill and Windows Script Host (WSH) applications.

<job id="BatchExample">
<script language="VBScript">

' Check if arguments are passed. This script expects that you pass two arguments:
' path to folder with files you want to process and path to folder where to store 
' result. Note, when we pass two arguments, Count property contains 3, because 
' the first argument contains script name.
If WScript.Arguments.Count   3 Then
	WScript.Echo "Arguments count " & WScript.Arguments.Count  & vbNewLine & "Usage: Batch.wsf BatchExample [input images folder path] [output images folder path]"
	WScript.Quit
End If

Dim objFSO
Dim objInputFolder
Dim objFile

' The Arguments collection is zero-based. The second argument 
' (next to script name) contains the input path.
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objInputFolder = objFSO.GetFolder(WScript.Arguments(1))

Dim I
Dim objBitmap
Set objBitmap = WScript.CreateObject("GraphicsMill.Bitmap")

For Each objFile in objInputFolder.Files

	' As potentially the folder may contain non-images, we should disable
	' break on error.
	On Error Resume Next
	objBitmap.LoadFromFile objFile.Path

	' Error check is made in this way
	If Err = 0 Then
		objBitmap.Transforms.Resize 320
		objBitmap.SaveToFile WScript.Arguments(2) & "\" & objFile.Name
		PrintMessage "File " & objFile.Name & " is processed."
	Else
		PrintMessage "File " & objFile.Name & " loading failed: " & Err.Description
	End If 
Next

' Due using StdOut, you can run this script from command line only (cscript.exe). 
' If you would like to customize it for wscript.exe, just modify this function
' to write the string to log file or whatever.
Sub PrintMessage(strMessage)
	WScript.StdOut.WriteLine strMessage
End Sub

</script>
</job>