能否通过VBS脚本执行远程可执行文件？

当然可以用VBS执行远程共享上的可执行文件，但你的脚本没成功，大概率是踩了几个常见的坑——咱们一步步来排查：

1. 先检查远程路径的有效性 #

你代码里写的\\12.345.67.789是无效的IPv4地址——IPv4的每个分段数值不能超过255，这里的345和789都超出范围了。先把这个替换成正确的目标主机IP或主机名，比如\\192.168.1.100\shared_files\filename.exe。

2. 权限与共享访问是重灾区 #

• 运行脚本的用户账号，必须同时拥有目标共享文件夹的共享权限和NTFS权限，还要有权限执行那个filename.exe。如果是工作组环境，可能需要先通过net use命令提前建立共享连接并提供凭据：

  Dim objShell
  Set objShell = WScript.CreateObject("WScript.Shell")
  ' 先建立共享连接，替换成实际的共享路径、用户名和密码
  objShell.Run "net use \\正确IP\shared_files /user:目标主机用户名 对应密码", 0, True
  ' 再执行远程EXE
  objShell.Run """\\正确IP\shared_files\filename.exe""", 1, True
  Set objShell = Nothing
  

• 额外提醒：如果目标主机开启了UAC远程限制，哪怕是管理员账号也可能无法直接执行，需要调整UAC设置或者用更高权限的上下文运行脚本。

3. 优化Run方法的参数来排查问题 #

你的代码只传了远程路径，其实可以补充两个参数帮你定位错误：

• 第二个参数设为1（正常显示窗口），这样能看到EXE运行时弹出的错误提示；
• 第三个参数设为True，让脚本等待EXE执行完成，方便确认是否是执行过程中出了问题；
  修改后的示例代码：

Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")
' 替换为正确的远程路径
objShell.Run """\\192.168.1.100\shared_files\filename.exe""", 1, True
Set objShell = Nothing

4. 其他容易忽略的问题 #

• 目标EXE是否依赖本地不存在的DLL？远程执行时，EXE会在本地主机加载依赖库，如果缺失可能会静默失败；
• 防火墙是否拦截了共享访问？确保目标主机的SMB端口（通常是445、139）在双方防火墙中都允许通行。

先把这些点逐一排查，应该就能解决你的问题了。

内容的提问来源于stack exchange，提问作者Sean