VBscript для запуска команды и отображения вывода в переменной

Question

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

Set objShell = CreateObject("WScript.Shell")
Set objScriptExec = objShell.Exec("for /f "tokens=3 delims=: " %i  in ('netsh interface ip show config name^="Wi-Fi" ^| findstr "IP Address"') do echo %i")
strIpConfig = objScriptExec.StdOut.ReadAll
WScript.Echo strIpConfig

Это то, что у меня есть, и я продолжаю получать код ошибки 800A03EE, когда пытаюсь его запустить.

Answer 1

Вы должны избегать двойных кавычек и начинать с cmd /c перед l oop для

Set objShell = CreateObject("WScript.Shell")
Set objScriptExec = objShell.Exec("cmd /c for /f ""tokens=3 delims=: "" %i in ('netsh interface ip show config name^=""Wi-Fi"" ^| findstr ""IP Address""') do echo %i")
strIpConfig = objScriptExec.StdOut.ReadAll
WScript.Echo strIpConfig