运行VBS脚本调用cmd.exe /k报错800a0401，求解决方法

错误800a0401是语法错误，问题出在你第3行的Run方法参数上——传递的命令字符串没有正确用双引号包裹，且内部双引号未转义。

修正后的代码 #

dim a
set a = WScript.CreateObject("WScript.Shell")
a.run "cmd /k ""@echo off && echo Hello World && pause && exit"""

关键修正点 #

• VBScript中，Run方法的命令参数必须是字符串类型，所以整个cmd /k ...部分需要用双引号括起来
• 命令内部的双引号（比如"@echo off..."）需要转义，VBScript里用两个连续双引号表示字符串内部的一个双引号

额外说明 #

你之前尝试的添加a = nothing、替换cmd为cmd.exe这些操作和当前语法错误无关，不需要做这些调整。如果想用cmd.exe，直接替换后保持引号格式即可：

a.run "cmd.exe /k ""@echo off && echo Hello World && pause && exit"""

内容的提问来源于stack exchange，提问作者Вася Маляр