Ошибка вызова.jar из Excel VBA с помощью Call Shell()

Question

Я пытаюсь вызвать простую Java-программу из Excel VBA с помощью следующей команды:

Call Shell("java -jar C:\TestMessage.jar arg0 arg1", vbNormalFocus)

Я получаю сообщение об ошибке: "Ошибка времени выполнения 5": недопустимый вызов процедуры или аргумент "вместе с уведомлением панели задач:" Действие заблокировано; ваш ИТ-администратор заставил Защитник Windows Защитник заблокировать это действие ".

Я застрял, так как я могу использовать без проблем:

Call Shell("notepad C:\gp.txt", vbNormalFocus)

Также я могу вызвать.jar из командной строки, используя:

java -jar C: \ TestMessage.jar arg0 arg1

Есть идеи? Заранее спасибо.

Answer 1

      sTempBAT = "d:\tempLog.txt"
Set shellwindows = GetObject("new:9ba05972-f6a8-11cf-a442-00a0c90a8f39")
Set itemobj = shellwindows.Item()
itemobj.document.Application.ShellExecute sTempBAT, "", "", "open", 0

Вышеупомянутый код будет работать, чтобы обойти безопасность защитника Windows для вызова функции оболочки https://blog.sevagas.com/IMG/pdf/bypass_windows_defender_attack_surface_reduction.pdf