R中启动OpenVPN连接SQL数据库 运行rasdial代码报权限错误如何解决

• 你遇到的sh: 1: : Permission denied报错，首先要检查Sys.which("rasdial")的返回值：如果返回空字符串，说明系统根本没找到rasdial可执行文件，system2接收到空命令路径就会抛出这个权限错误。rasdial是Windows专属的系统拨号工具，仅支持系统自带的PPTP/L2TP/SSTP类VPN，如果你用macOS/Linux环境本身就没有这个程序；就算是Windows环境，环境变量配置异常也会导致找不到该命令。
• 其次，rasdial完全不兼容OpenVPN协议，你既然需要基于OpenVPN搭建连接，一开始就不需要在rasdial上耗时间，方向不对。
• 最后要注意：建立VPN属于修改系统网络配置的操作，Windows下需要管理员权限、Linux/macOS下需要root权限，普通权限运行R调用相关命令必然会被系统拦截报错。

前置校验 #

先手动安装OpenVPN官方客户端，导入你手里的.ovpn配置文件，手动完成一次VPN连接，确认能正常访问目标SQL服务器的IP和端口，排除VPN配置本身的错误、账号权限问题、网络不通问题，再做R层面的自动调用。
如果你的OpenVPN需要账号密码认证，不要把账号密码硬写在R脚本里，单独建一个纯文本鉴权文件，第一行写用户名、第二行写密码，后续OpenVPN会直接读取这个文件完成认证。

R中调用代码 #

Windows 环境 #

# OpenVPN默认安装路径如下，如果你的安装位置不一样手动替换
openvpn_bin <- "C:\\Program Files\\OpenVPN\\bin\\openvpn.exe"
# 替换成你自己的ovpn配置文件绝对路径
ovpn_config <- "C:\\your_path\\vpn_config.ovpn"
# 启动OpenVPN后台连接，日志写入本地文件方便排查问题
system2(
  command = openvpn_bin,
  args = c(
    "--config", shQuote(ovpn_config),
    "--auth-user-pass", shQuote("C:\\your_path\\vpn_auth.txt") # 配置文件内置了账号密码就删掉这行
  ),
  wait = FALSE,
  stdout = "openvpn_run.log",
  stderr = "openvpn_run.log"
)
# 等待8-10秒让VPN完成握手和路由配置
Sys.sleep(8)
# 后续直接写你的SQL连接逻辑即可，比如用DBI、odbc包连接数据库

运行前右键点击R/RStudio图标，选择「以管理员身份运行」，避免权限不足导致拨号失败。

Linux/macOS 环境 #

# 查找系统内的openvpn可执行文件路径
openvpn_bin <- unname(Sys.which("openvpn"))
if (nchar(openvpn_bin) == 0) stop("请先安装OpenVPN客户端，Linux可直接用yum/apt安装，macOS可通过brew安装")
ovpn_config <- "/your_path/vpn_config.ovpn"
# 注意：需要提前给当前运行R的用户配置sudo免密执行openvpn的权限，否则会卡在密码输入步骤
system2(
  command = "sudo",
  args = c(
    openvpn_bin,
    "--config", shQuote(ovpn_config),
    "--daemon", # 后台运行不阻塞R进程
    "--auth-user-pass", shQuote("/your_path/vpn_auth.txt") # 配置文件内置账号密码就删掉这行
  ),
  stdout = "openvpn_run.log",
  stderr = "openvpn_run.log"
)
Sys.sleep(10)
# 后续编写SQL连接逻辑即可

收尾注意事项 #

• 脚本执行完不需要VPN的时候，主动断开连接：Windows下执行system2("taskkill", args = c("/IM", "openvpn.exe", "/F"))即可，Linux/macOS下执行system2("sudo", args = c("pkill", "openvpn"))即可。
• 存账号密码的鉴权文件要设置最小读取权限，避免凭据泄露。
• 拨号失败直接看同目录下生成的openvpn_run.log日志，配置路径错误、证书过期、账号密码错误、路由冲突这类常见问题日志里都会有明确提示。

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