如何使用WShell.Run运行多个dos命令

Question

我的用例是在vbscript

中模拟下面的dos命令

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

我可以编写vbscript代码直到cmd目录但不知道如何在单个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