VBS Shell.Application中ShellExecute的使用方法详解

最近在项目中偶然用到 VBS 调用“Shell.Application”中的 ShellExecute 方法，百度一圈发现中文资料少得可怜，最后还是翻微软官方文档才把参数啃下来。既然中文社区缺这块内容，就把详细用法整理出来，给有需要的朋友参考。

在 VBS 中调用这个方法，先要创建对象：Set Shell = CreateObject("Shell.Application")。命令格式如下：

Shell.ShellExecute "执行命令或文件的名称", "执行命令的附加参数", "执行命令或文件所在目录的绝对路径", "操作", 窗口显示类型

下面逐一拆解每个参数的含义。

参数详解

1. 执行命令或文件的名称
就是你要运行的程序或要处理的文件。比如想打开 cmd 窗口，这里就填 cmd.exe。

2. 执行命令的附加参数
前面那个命令如果需要额外参数，就填在这里。比如运行 cmd.exe /k net user ... 里的 /k net user ... 就是参数。

3. 执行命令或文件所在目录的绝对路径
填命令文件或要处理的文件所在的文件夹路径。留空则默认使用当前工作目录。

4. 操作
这个参数有六种预设值，决定对文件做什么操作：

5. 窗口显示类型
这个数字参数决定程序窗口以何种方式显示：

实战例子

下面这个例子调用来 cmd.exe 添加一个用户，用户名 username，密码 password，并且以管理员权限运行：

Set Shell = CreateObject("Shell.Application")
Shell.ShellExecute "cmd.exe", "/k net user username password /add", "C:\Windows\System32", "runas", 1

Shell.ShellExecute 方法官方资料

对指定文件执行指定操作。

语法

JScript：

iRetVal = Shell.ShellExecute(
  sFile,
  [ vArguments ],
  [ vDirectory ],
  [ vOperation ],
  [ vShow ]
);

VBScript：

iRetVal = Shell.ShellExecute( _
  sFile, _
  [ ByVal vArguments ], _
  [ ByVal vDirectory ], _
  [ ByVal vOperation ], _
  [ ByVal vShow ] _
)

VB：

Shell.ShellExecute( _
  ByVal sFile As BSTR, _
  [ ByVal vArguments As Variant ], _
  [ ByVal vDirectory As Variant ], _
  [ ByVal vOperation As Variant ], _
  [ ByVal vShow As Variant ] _
) As Integer

参数

sFile [in]
类型：BSTR
一个字符串，包含 ShellExecute 将对其执行 vOperation 指定的操作的文件的名称。

vArguments [in， 可选]
类型：Variant
包含操作的参数值的字符串。

vDirectory [in， 可选]
类型：Variant
包含 sFile 指定的文件的目录的完全限定路径。如果未指定，则使用当前工作目录。

vOperation [in， 可选]
类型：Variant
要执行的操作。此值设置为文件支持的谓词字符串之一（见备注）。如果未指定，则执行默认操作。

vShow [in， 可选]
类型：Variant
建议的窗口显示方式。应用程序可能忽略此建议。取值如下（未指定时使用默认值）：

注解

此方法等效于启动与文件快捷菜单关联的命令之一。每个命令由谓词字符串表示。支持的谓词集因文件而异，最常支持的是“open”（通常也是默认谓词）。其他谓词可能仅对某些文件类型有效。更多关于 Shell 谓词的内容，可参考“启动应用程序”或“扩展快捷菜单”。

需要注意：此方法目前在 Microsoft Visual Basic 中不可用。

示例

以下演示使用 ShellExecute 打开记事本。分别给出 JScript 和 VBScript 版本。

JScript：

function ShellExecuteJS()
{
    var objShell = new ActiveXObject("Shell.Application");
    objShell.ShellExecute("notepad.exe", "", "", "open", 1);
}

VBScript：

Function ShellExecuteVB()
    Dim objShell
    Set objShell = CreateObject("Shell.Application")
    Call objShell.ShellExecute("notepad.exe", "", "", "open", 1)
End Function

要求

更全面的官方资料可参考微软文档：https://learn.microsoft.com/zh-cn/windows/win32/shell/shell-shellexecute