VBScript с использованием wshshell.run не удается

Question

Я использовал для вызова исполняемого файла, который устанавливает шрифт в Windows.Исполняемый файл работает и уже много лет используется без проблем.Windows обычно запрашивает окно, подтверждающее, что я хочу запустить этот файл.

Код выглядит следующим образом:

Set oShell = CreateObject("WScript.Shell")  
oShell.Run "myFile.exe "+ parameterString, 1, true

Недавно я начал получать

код ошибки 32813

, о котором я не могу найти много информации.Самое странное, если я добавлю одну команду запуска раньше, то она снова заработает:

Set oShell = CreateObject("WScript.Shell")  
oShell.Run "cmd", 1, true  ' this shouldn't make a difference  
oShell.Run "myFile.exe "+ parameterString, 1, true

Есть идеи, что это за ошибка?Кроме того, есть ли лучший способ установить шрифт с помощью VBScript в настоящее время?

Answer 1

Для запуска вашей программы и использования аргументов используйте этот способ =

parameterString="Your Arg Here"
CreateObject("Wscript.Shell").Run "cmd /c myFile.exe "+parameterString, 0, True

А также, если вы хотите установить шрифт с помощью Vbscript, перейдите на эту страницу = Установка шрифтов с помощью VBScript