在vb.net中查找并启动VPN连接

RasDialer dialer = new RasDialer();
ReadOnlyCollection<RasConnection> connections = dialer.GetActiveConnections();

foreach (RasConnection connection in connections)
{
    // Do what you want to with the connections.
}

它将检索Windows正在使用的所有已连接拨号条目(包括VPN连接)及其相关句柄和其他信息。

该组件是codeplex上dotras项目的一部分。

http://www.codeplex.com/DotRas

使用wmi的这个例子可能会给您带来很多好处(顺便说一下,对于c很抱歉!):

using System.Management;

string query = "SELECT * FROM Win32_NetworkAdapterConfiguration";
ManagementObjectSearcher moSearch = new ManagementObjectSearcher(query);
ManagementObjectCollection moCollection = moSearch.Get();

// Every record in this collection is a network interface
foreach (ManagementObject mo in moCollection)
{
    // Do what you need to here....
}

对于测试适配器是否已启用,此链接应该有助于:

Win32_NetworkAdapterConfiguration class

编辑:你可能会有更多的运气 Win32_NetworkAdapter 类-它具有标题和说明属性,其中 可以 给你所需要的。有一种方法可以将这些信息与我提到的前一个类联系起来,以获取IP地址等-不需要进一步研究就不确定它是什么,但是如果您需要知道,请告诉我。

好的,这是一个黑客解决方案,我要检测一个命名的vpn。如果由于任何原因(包括网络连接断开、VPN不存在等)而无法连接到VPN,则会引发错误。

要测试的特定错误代码包括:

远程访问错误800-无法建立VPN连接。
VPN服务器可能无法访问,或者安全参数可能无法访问 为此连接正确配置。

远程访问错误623-系统找不到电话簿 此连接的条目。

它并不能真正地回答我提出的问题(尽管它对于现实生活中的问题很有效)。

Dim p As New Process

p.StartInfo.UseShellExecute = False
p.StartInfo.RedirectStandardOutput = True
p.StartInfo.RedirectStandardError = True
p.StartInfo.FileName = "rasdial.exe"
p.StartInfo.Arguments = """Company HQ"""
p.Start()
If Not p.WaitForExit(My.Settings.VpnTimeout) Then
    Throw New Exception( _
String.Format("Connecting to ""{0}"" VPN failed after {1}ms", sVpn, My.Settings.VpnTimeout))
End If

If p.ExitCode <> 0 Then
    Throw New Exception( _
String.Format("Failed connecting to ""{0}"" with exit code {1}. Errors {2}", sVpn, p.ExitCode, p.StandardOutput.ReadToEnd.Replace(vbCrLf, "")))
End If

好的-最后的努力:)

那呢? Win32_NetworkConnection 类-我很确定这将处理VPN连接