Option Explicit

Const wiaFormatBMP = "{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}"

Dim objImageFile, objImageFile2
Dim objImageProcess
Dim objFSO

Dim strPath2Wallpaper
Dim strPath2MyWallpaper


' Исходный графический файл:
strPath2Wallpaper   = "C:\WINDOWS\Web\Wallpaper\Осень.jpg"
' Графический файл с результатом работы:
strPath2MyWallpaper = "C:\WINDOWS\Web\Wallpaper\MyWallpaper.bmp"

Set objImageFile    = WScript.CreateObject("WIA.ImageFile")
Set objImageProcess = WScript.CreateObject("WIA.ImageProcess")
Set objFSO          = WScript.CreateObject("Scripting.FileSystemObject")

If Not objFSO.FileExists(strPath2Wallpaper) Then
    WScript.Quit 1
End If

With objImageFile
    ' Загружаем файл в компонент:
    .LoadFile strPath2Wallpaper
    
    ' Выводим некоторую информацию об исходном изображении
    WScript.Echo "============================================================"
    WScript.Echo "Image [" & strPath2Wallpaper & "]"
    WScript.Echo "------------------------------------------------------------"
    WScript.Echo "Width                 :", .Width
    WScript.Echo "Height                :", .Height
    WScript.Echo "Depth                 :", .PixelDepth
    WScript.Echo "Horizontal resolution :", .HorizontalResolution
    WScript.Echo "Vertical resolution   :", .VerticalResolution
    WScript.Echo "Frame(s) count        :", .FrameCount
    
    If .IsAnimated Then
        WScript.Echo "Image is animated"
    End If
    
    If .Properties.Exists("40091") Then
        WScript.Echo "Title                 :", .Properties("40091").Value.String
    End If
    
    WScript.Echo "------------------------------------------------------------"
End With

' Обрабатываем…
With objImageProcess
    ' ---------------------------------------------------------------------------
    ' Масштабируем:
    ' ---------------------------------------------------------------------------
    .Filters.Add .FilterInfos("Scale").FilterID
    
    With .Filters.Item(1).Properties
        ' Ширина - 1024 пикселей
        .Item("MaximumWidth")  = 1024
        ' Высота - 768 пикселей
        .Item("MaximumHeight") = 768
    End With
    ' ---------------------------------------------------------------------------
    
    ' ---------------------------------------------------------------------------
    ' Вращаем:
    ' ---------------------------------------------------------------------------
    .Filters.Add .FilterInfos("RotateFlip").FilterID
    ' Отразим зеркально по горизонтали
    .Filters.Item(2).Properties.Item("FlipHorizontal") = True
    ' Отразим зеркально по вертикали
    .Filters.Item(2).Properties.Item("FlipVertical")   = True
    ' Повернём на 270 градусов (по часовой стрелке)
    .Filters.Item(2).Properties.Item("RotationAngle")  = 270
    ' ---------------------------------------------------------------------------
    
    ' ---------------------------------------------------------------------------
    ' Обрезаем:
    ' ---------------------------------------------------------------------------
    .Filters.Add .FilterInfos("Crop").FilterID
    
    With .Filters(3).Properties
        ' Подрежем сверху-снизу
        .Item("Top")    = objImageFile.Width \ 4
        .Item("Bottom") = objImageFile.Width \ 4
        ' Подрежем справа-слева
        '.Item("Left")   = objImageFile.Height \ 10
        '.Item("Right")  = objImageFile.Height \ 10
    End With
    ' ---------------------------------------------------------------------------
    
    ' ---------------------------------------------------------------------------
    ' Наклеим другую картинку:
    ' ---------------------------------------------------------------------------
    .Filters.Add .FilterInfos("Stamp").FilterID
    
    ' Загружаем картинку в новый компонент:
    Set objImageFile2 = WScript.CreateObject("WIA.ImageFile")
    objImageFile2.LoadFile "C:\WINDOWS\Web\exclam.gif"
    
    With .Filters(4).Properties
        ' Наклеиваем картинку…
        .Item("ImageFile") = objImageFile2
        
        ' …в указанном месте
        .Item("Top")       = 20
        .Item("Left")      = 20
    End With
    
    Set objImageFile2 = Nothing
    ' ---------------------------------------------------------------------------
    
    ' ---------------------------------------------------------------------------
    ' Конвертируем:
    ' ---------------------------------------------------------------------------
    .Filters.Add .FilterInfos("Convert").FilterID
    ' В bitmap формат
    .Filters.Item(5).Properties.Item("FormatID").Value = wiaFormatBMP
    ' ---------------------------------------------------------------------------
    
    ' Применяем заданные выше фильтры:
    Set objImageFile = .Apply(objImageFile)
End With

' Перезаписывать существующий файл компонент не умеет,
' потому предварительно проверяем наличие файла…
If objFSO.FileExists(strPath2MyWallpaper) Then
    ' …и, если найден, — удаляем его
    objFSO.DeleteFile strPath2MyWallpaper
End If

' Сохраняем файл:
objImageFile.SaveFile "C:\WINDOWS\Web\Wallpaper\MyWallpaper.bmp"

Set objFSO          = Nothing
Set objImageProcess = Nothing
Set objImageFile    = Nothing

WScript.Quit 0

Set oJPG = CreateObject("jsIPTC.JPGEdit")
Number = oJPG.LoadJPG("c:\temp\test.jpg") ' вернёт -1 в случае ошибки
WScript.Echo "найдено тегов: " & Number
For i = 0 To Number - 1
    WScript.Echo oJPG.Tag(i)
Next
'For Each tag In oJPG.AllTags ' массив значений всех тегов, в т.ч. незаполненных
'    WScript.Echo tag
'Next
'For Each tag In oJPG.TagList ' массив названий тегов
'    WScript.Echo tag
'Next
oJPG.Tag(0) = "Заголовок"
oJPG.Tag(1) = "Категория"
success = oJPG.SaveJPG(oJPG.CurrentFile) ' сохранять нужно в тот же файл

Set objImage = CreateObject("XStandard.Image")
objImage.Load "C:\Temp\test.bmp"
WScript.Echo "Width: " & objImage.Width
WScript.Echo "Height: " & objImage.Height
WScript.Echo "Size: " & objImage.Size ' в байтах
Select Case objImage.Format
    Case 1
        strFormat = "GIF"
    Case 2
        strFormat = "JPEG"
    Case 3
        strFormat = "PNG"
    Case 4
        strFormat = "BMP"
    Case Else
        strFormat = "unknown"
End Select
WScript.Echo "Format: " & strFormat