如何通过Excel VBA获取VPN用户

我的情况是：我在主要办公室有一个服务器（很less用户工作），大多数用户在远程位置，他们通过VPN连接到这个服务器。 在远程位置，计算机有自己的名称和用户，然后用户连接到VPN以访问主办公室的服务器。

我正在使用excel发送一些信息到主办公室的服务器上的数据库，我需要通过VBA Excel达到2件事情：

1.-知道远程用户是否连接到VPN。 2.-如果连接，那是login的VPN用户。

我一直在研究很多与此相关的文章，但是在文章中解释的function，在PC中返回了PC名称或用户名，而不是VPN用户。 我需要得到我之前解释过的两点。 我怎么能做到这一点？

提前致谢。

Answer 1

我不知道确切的答案，我无法find有用的解决scheme在VBA，但这个VB代码可能会帮助你。 但是我需要警告你，这个解决scheme只适用于MS VPN连接，不适用于Cisco。

对于Cisco VPN – 请检查： AnyConnect VPN客户端API 。 在C ++和完整的文档中有几个例子。

也看到类似的问题：

在VB.NET中查找并启动一个VPN连接

VBscript VPN（PPP适配器）IP地址

使用WMI对象的VBS脚本获取VPN PPTP连接的IP地址