vb.net でvpn接続をする

vb.netで「既存のvpn接続」をDOSコマンドで実行するための覚え書きです。

vpn接続はあらかじめ作成しておきます。

使うコマンドと引数は以下の通り。

【接続】：RASDIAL VPN接続名 ユーザID パスワード

【切断】：RASDIAL VPN接続名 /disconnect


以下、コーディングサンプルです。

＜接続＞
Dim proc As New System.Diagnostics.Process()

'ComSpec(cmd.exe)のパスをFileNameプロパティに指定
proc.StartInfo.FileName = System.Environment.GetEnvironmentVariable("ComSpec")
proc.StartInfo.UseShellExecute = False
proc.StartInfo.RedirectStandardOutput = False
proc.StartInfo.RedirectStandardInput = False
'DOS窓を表示しないようにする
proc.StartInfo.CreateNoWindow = True
'コマンドラインを指定（"/c"は、実行後閉じるために必要）
proc.StartInfo.Arguments = "/c RASDIAL VPN接続名 ユーザID パスワード"

'起動
proc.Start()

'接続終了するまで待機する
proc.WaitForExit()


＜切断＞
proc.StartInfo.FileName = System.Environment.GetEnvironmentVariable("ComSpec")
proc.StartInfo.UseShellExecute = False
proc.StartInfo.RedirectStandardOutput = False
proc.StartInfo.RedirectStandardInput = False
'DOS窓を表示しないようにする
proc.StartInfo.CreateNoWindow = True
'コマンドラインを指定（"/c"は、実行後閉じるために必要）
proc.StartInfo.Arguments = "/c RASDIAL VPN接続名 /disconnect"

'起動
proc.Start()

'切断終了するまで待機する
proc.WaitForExit()

'後始末
proc.Dispose()