' By Elektro
 
Option Explicit
 
' Crops the image by the specified Left, Top, Right, and Bottom margins.
' ======================================================================
' Left       - Set the Left property to the left margin (in pixels)
'              if you wish to crop along the left, otherwise 0 [the default]
' Top        - Set the Top property to the top margin (in pixels)
'              if you wish to crop along the top, otherwise 0 [the default]
' Right      - Set the Right property to the right margin (in pixels)
'              if you wish to crop along the right, otherwise 0 [the default]
' Bottom     - Set the Bottom property to the bottom margin (in pixels)
'              if you wish to crop along the bottom, otherwise 0 [the default]
' FrameIndex - Set the FrameIndex property to the index of a frame if you
'              wish to modify a frame other than the ActiveFrame,
'              otherwise 0 [the default]
Function CropImage(filepath, left, top, right, bottom, frameIndex)
    Dim ImgFile, ImgProc
 
    ' https://learn.microsoft.com/en-us/previous-versions/windows/desktop/wiaaut/-wiaaut-imagefile
    Set ImgFile = WScript.CreateObject("WIA.ImageFile")
 
    ' https://learn.microsoft.com/en-us/previous-versions/windows/desktop/wiaaut/-wiaaut-imageprocess
    Set ImgProc = WScript.CreateObject("WIA.ImageProcess")
 
    On Error Resume Next
    ImgFile.LoadFile(filepath)
    If Err.Number <> 0 Then
        Call WScript.Echo(Err.Description)
        WScript.Quit(1)
    End If
 
    ImgProc.Filters.Add(ImgProc.FilterInfos("Crop").FilterID)
 
    ImgProc.Filters(1).Properties("Left")       = left
    ImgProc.Filters(1).Properties("Top")        = top
    ImgProc.Filters(1).Properties("Right")      = right
    ImgProc.Filters(1).Properties("Bottom")     = bottom
    ImgProc.Filters(1).Properties("FrameIndex") = FrameIndex
 
    On Error Resume Next
    Set CropImage = ImgProc.Apply(ImgFile)
    If Err.Number <> 0 Then
        Call WScript.Echo(Err.Description)
        WScript.Quit(1)
    End If
End Function
 
Dim croppedImage
Set croppedImage = CropImage("C:\image.jpg", 50, 50, 50, 50, null)
croppedImage.SaveFile("C:\crop.jpg")
 
WScript.Quit(0)

RotateFlip {FB912B7A-C57F-479C-9209-4895C1513F2D}
==================================================
Rotates, in 90 degree increments, and Flips, horizontally or vertically.

RotationAngle  - Set the RotationAngle property to 90, 180, or 270 if you wish
                 to rotate, otherwise 0 [the default]
FlipHorizontal - Set the FlipHorizontal property to True if you wish to flip
                 the image horizontally, otherwise False [the default]
FlipVertical   - Set the FlipVertical property to True if you wish to flip
                 the image vertically, otherwise False [the default]
FrameIndex     - Set the FrameIndex property to the index of a frame if you
                 wish to modify a frame other than the ActiveFrame,
                 otherwise 0 [the default]
==================================================
IP.Filters(1).Properties("RotationAngle") = 0 '[valid values from the following list: 0, 90, 180, 270]
IP.Filters(1).Properties("FlipHorizontal") = False
IP.Filters(1).Properties("FlipVertical") = False
IP.Filters(1).Properties("FrameIndex") = 0


Crop {C685961E-A385-4f41-A2E5-225A2518BA59}
==================================================
Crops the image by the specified Left, Top, Right, and Bottom margins.

Left       - Set the Left property to the left margin (in pixels)
             if you wish to crop along the left, otherwise 0 [the default]
Top        - Set the Top property to the top margin (in pixels)
             if you wish to crop along the top, otherwise 0 [the default]
Right      - Set the Right property to the right margin (in pixels)
             if you wish to crop along the right, otherwise 0 [the default]
Bottom     - Set the Bottom property to the bottom margin (in pixels)
             if you wish to crop along the bottom, otherwise 0 [the default]
FrameIndex - Set the FrameIndex property to the index of a frame if you
             wish to modify a frame other than the ActiveFrame,
             otherwise 0 [the default]
==================================================
IP.Filters(1).Properties("Left") = 0
IP.Filters(1).Properties("Top") = 0
IP.Filters(1).Properties("Right") = 0
IP.Filters(1).Properties("Bottom") = 0
IP.Filters(1).Properties("FrameIndex") = 0


Scale {4EBB0166-C18B-4065-9332-109015741711}
==================================================
Scales image to the specified Maximum Width and Maximum Height preserving
Aspect Ratio if necessary.

MaximumWidth        - Set the MaximumWidth property to the width (in pixels)
                      that you wish to scale the image to.
MaximumHeight       - Set the MaximumHeight property to the height (in pixels)
                      that you wish to scale the image to.
PreserveAspectRatio - Set the PreserveAspectRatio property to True
                      [the default] if you wish to maintain the current aspect
                      ration of the image, otherwise False and the image will
                      be stretched to the MaximumWidth and MaximumHeight
FrameIndex          - Set the FrameIndex property to the index of a frame if
                      you wish to modify a frame other than the ActiveFrame,
                      otherwise 0 [the default]
==================================================
IP.Filters(1).Properties("MaximumWidth") = 1
IP.Filters(1).Properties("MaximumHeight") = 1
IP.Filters(1).Properties("PreserveAspectRatio") = True
IP.Filters(1).Properties("FrameIndex") = 0


Stamp {F73D0AA9-30B7-417c-8143-23DBD0538F97}
==================================================
Stamps the specified ImageFile at the specified Left and Top coordinates.

ImageFile  - Set the ImageFile property to the ImageFile object that you wish
             to stamp
Left       - Set the Left property to the offset from the left (in pixels)
             that you wish to stamp the ImageFile at [default is 0]
Top        - Set the Top property to the offset from the top (in pixels) that
             you wish to stamp the ImageFile at [default is 0]
FrameIndex - Set the FrameIndex property to the index of a frame if you wish to
             modify a frame other than the ActiveFrame, otherwise 0
             [the default]
==================================================
IP.Filters(1).Properties("ImageFile") = Nothing
IP.Filters(1).Properties("Left") = 0
IP.Filters(1).Properties("Top") = 0
IP.Filters(1).Properties("FrameIndex") = 0


Exif {8F75768F-7D7C-44c4-93FE-E3EF28ECD259}
==================================================
Adds/Removes the specified Exif Property.

Remove     - Set the Remove property to True if you wish to remove the
             specified Exif property, otherwise False [the default] to add the
             specified exif property
ID         - Set the ID property to the PropertyID you wish to Add or Remove
Type       - Set the Type property to indicate the WiaImagePropertyType of the
             Exif property you wish to Add (ignored for Remove)
Value      - Set the Value property to the Value of the Exif property you wish
             to Add (ignored for Remove)
FrameIndex - Set the FrameIndex property to the index of a frame if you
             wish to modify a frame other than the ActiveFrame,
             otherwise 0 [the default]
==================================================
IP.Filters(1).Properties("Remove") = False
IP.Filters(1).Properties("ID") = -1 '[valid values in the range: Min = 0, Max = 65535, Step = 1]
IP.Filters(1).Properties("Type") = 1000
IP.Filters(1).Properties("Value") = Nothing
IP.Filters(1).Properties("FrameIndex") = 0


Frame {2C5EB755-63A8-40cb-B10D-7CF8F3E0CE71}
==================================================
Adds/Removes the specified Frame.

Remove     - Set the Remove property to True if you wish to remove the
             specified FrameIndex, otherwise False [the default] to Insert the
             ImageFile before the specified FrameIndex
ImageFile  - Set the ImageFile property to the ImageFile object whose
             ActiveFrame that you wish to add (ignored for Remove)
FrameIndex - For Remove, set the FrameIndex property to the index of the frame
             you wish to remove, otherwise for add, set the FrameIndex to the
             index of the frame to insert the ImageFile before, otherwise 0
             [the default] to append a frame from the ImageFile specified
==================================================
IP.Filters(1).Properties("Remove") = False
IP.Filters(1).Properties("ImageFile") = Nothing
IP.Filters(1).Properties("FrameIndex") = 0


ARGB {654A6A04-FB39-4d68-9B65-72E50E8323A0}
==================================================
Updates the image bits with those specified.

ARGBData -   Set the ARGBData property to the Vector of Longs that represent
             the ARGB data for the specified FrameIndex (the width and height
             must match)
FrameIndex - Set the FrameIndex property to the index of the frame whose ARGB
             data you wish to modify, otherwise 0 [the default] to modify the
             ActiveFrame
==================================================
IP.Filters(1).Properties("ARGBData") = Nothing
IP.Filters(1).Properties("FrameIndex") = 0


Convert {42A6E907-1D2F-4b38-AC50-31ADBE2AB3C2}
==================================================
Converts the resulting ImageFile to the specified type.

FormatID    - Set the FormatID property to the supported raster image format
              desired, currently you can choose from wiaFormatBMP,
              wiaFormatPNG, wiaFormatGIF, wiaFormatJPEG, or wiaFormatTIFF
Quality     - For a JPEG file, set the Quality property to any value from 1 to
              100 [the default] to specify quality of JPEG compression
Compression - For a TIFF file, set the Compression property to CCITT3, CCITT4,
              RLE or Uncompressed to specify the compression scheme,
              otherwise LZW [the default]
==================================================
IP.Filters(1).Properties("FormatID") = FormatID string GUID defined in the typelib
IP.Filters(1).Properties("Quality") = 100 '[valid values in the range: Min = 1, Max = 100, Step = 1]
IP.Filters(1).Properties("Compression") = "LZW" '[valid values from the following list: "CCITT3", "CCITT4", "LZW", "RLE", "Uncompressed"]

Muy buen codigo, tambien esta muy limpio... Que otros modulos u objectos existen para el tratamiento de imagenes y videos con VBS? Saludos