Скан = СоздатьОбъект("WIA.ImageFile")
ИмяФайла = "d:\temp\ууу.bmp";
Просмотр.Загрузить(ИмяКаталога + ИмяФайла);
Просмотр.РежимРисования(3);
Форма.ПустаяКартинка.Видимость(0);
Форма.Просмотр.Видимость(1);
ш = Скан.Width;
в = Скан.Height;
Готово = CreateObject("WIA.ImageProcess");
Фильтер = Готово.FilterInfos("Scale").FilterID ;    
Готово.Filters.Add(Фильтер);
Готово.Filters(1).Properties("MaximumWidth").Value = ш/2;
Готово.Filters(1).Properties("MaximumHeight").Value = в/2;
Фотка = Готово.Apply(Скан);
Фотка.SaveFile("d:\temp\ууу2.bmp");

Тут все акей.
Но надо бы преобразовать в градации серого 8 бит
Ну и потом еще преобразовать в формат bmp если первоначально открывается jpg.

Фильтер2 = Готово.FilterInfos("Convert").FilterID;    
        Готово.Filters.Add(Фильтер2);
        Готово.Filters(1).Properties("FormatID").Value="{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}";

Готово.Filters(1).Properties("FormatID").Value="{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}";
{D:\TEMP\00\EXTFORMS\SCANNING1.ERT(99)}: : Name Not Found.

Готово.Filters(1).Properties("FrameIndex").Value="{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}";
несовпадение типов

Там не так много параметров.
Самое печальное, что на сервере х64 оно не работает :(

Filters(2) же

В бмп сохранить получилось
Фильтер = Готово.FilterInfos("Convert").FilterID;    
            Готово.Filters.Add(Фильтер);
            Готово.Filters(1).Properties("FormatID").Value="{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}";

Осталось до 256 цветов ужать в градации серого

по ходу никак

https://msdn.microsoft.com/en-us/library/windows/desktop/ms630829(v=vs.85).aspx

' WiaImageIntent enumeration

Const UnspecifiedIntent = 0
Const ColorIntent = 1
Const GrayscaleIntent = 2
Const TextIntent = 4

Const GrayscaleIntent = 2
или это только для сканирования?

?

http://blog.foolsoft.ru/c-perevod-izobrazheniya-v-monoxrom/
http://catalog.mista.ru/public/238584/

http://www.argc-argv.com/1_2011/article01.pdf

ЗапуститьПриложение("C:\Progra~1\IrfanView\i_view32.exe "+результат+" /gray /convert="+результат);