Как запустить несколько команд с помощью дос WShell.Run

Question

Мой вариант использования для имитации ниже команды дос в VBScript

cmd CD C:/ 
cmd Dir 
cmd echo Error Code=%ErrorLevel% >> c:\error.txt 

я могу иметь возможность написать код VBScript до CMD Dir, но не знаю, как моделировать для код ошибки в одном коде vbscript

Dim oShell 
Set oShell = WScript.CreateObject ("WScript.Shell") 
oShell.run "cmd /K CD C:\ & Dir" 
Set oShell = Nothing 

Answer 1

Включите свои команды в пакетном файле, а затем запустите это.

YourBatch.cmd

CD C:/ 
Dir 
echo Error Code=%ErrorLevel% >> c:\error.txt 

Тогда в вашем VBscript, вызовите пакетный файл.

Dim oShell 
Set oShell = WScript.CreateObject ("WScript.Shell") 
oShell.run "YourBatch.cmd" 
Set oShell = Nothing