Есть скрипт для сжатия картинок у XLS документа

Set oShell = WScript.CreateObject("WScript.Shell")
set xls=CreateObject("Excel.Application")
xls.DisplayAlerts = False
xls.Visible = True
set book=xls.WorkBooks.Open("ИмяФайла")
set Commanda2 = xls.Application.CommandBars.FindControl(, 6382)
xls.WindowState = -4140
xls.WindowState = -4137
WScript.sleep(1000)
xls.SendKeys "%и~"
Commanda2.Execute()
book.Save()
xls.Quit()

захожу терминально на сервер под пользователем USR1CV82 запускаю работает все.

если запускаю этот скрипт из 1с на клиенте в процедуре &НаСервере через ЗапуститьПриложение висит.
такое ощущение что не отрабатывает xls.SendKeys "%и~"
так как если убрать Commanda2.Execute()
все проходит, но картинки при этом не сжимаются.

Вопрос как можно сжать картинки на сервере?
или хотя бы понять и отладить в чем проблема?

блин выполняю из шеддулера под пользователем USR1CV82
висит
захожу в сеанс пользователя, висит на табличке сохранить
не отрабатывает
xls.SendKeys "%и~"

но что самое интересное, если сеанс держать активным, и в это время запустить через шедулер то все срабатывает

(0) CreateObject("Excel.Application")

Вопросы серверной автоматизации Office
https://support.microsoft.com/kb/257757

Корпорация Microsoft на сегодняшний день не рекомендует производить и не поддерживает автоматизацию программ из пакета Microsoft Office с помощью автоматических, неинтерактивных клиентских приложений или компонентов (включая ASP, DCOM и службы NT), поскольку при запуске в этом окружении программы пакета Office могут работать нестабильно или зависать.

(0)(1) слов нету... какие посылки команд нажатия кнопок?

(4) посылки это что

там надо нажать одну кнопку ок
добраться можно через 4 таба и ентер

(3) это конечно хорошо что он не рекомендует, но как мне добраться до сжатия картинок в таком случае? но, направление понял, читаю.

(5)(6) а деньги пересылать по факсу не?

ЗЫ
Используй робота который крутится на сервере в "интерактивном режиме" или переделывай на другой способ сжатия