在VBScript中打开外部程序，可以使用`WScript.Shell`对象及其`Run`方法。以下是一个示例代码，展示了如何使用`WScript.Shell`对象来打开外部程序：
```vbscript
Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.Run "notepad.exe" ' 替换为你要打开的外部程序路径
```
如果你希望VBScript等待外部程序结束再继续执行，可以在`Run`方法中添加`WaitOnReturn`和`Timeout`属性，例如：
```vbscript
objShell.Run "notepad.exe", 1, True ' 等待notepad.exe关闭
```
此外，还可以使用`Shell`函数来启动外部程序，但需要注意的是，`Shell`函数是异步的，即程序启动后会立即返回，不会等待程序结束。例如：
```vbscript
Shell "notepad.exe" ' 启动notepad.exe
```
如果你需要从VBScript中调用命令行来执行外部程序，可以使用`WScript.Shell`对象的`Exec`方法，例如：
```vbscript
Set objShell = CreateObject("WScript.Shell")
objShell.Exec "cmd /c start notepad.exe" ' 在新命令行窗口中打开notepad.exe
```
这些方法可以帮助你在VBScript中打开外部程序，并根据需要选择是否等待程序结束。
