[VB.net]グローバルIPアドレス取得(curlコマンド)

curl inet-ip.info
または
curl inet-ip.info/ip

Private Function Cmd_IPaddress_Get() As String
    Try
    'Processオブジェクトを作成
    Dim cmd As New System.Diagnostics.Process()
    'ComSpec(cmd.exe)のパスを取得して、FileNameプロパティに指定
    cmd.StartInfo.FileName = System.Environment.GetEnvironmentVariable("ComSpec")
    '出力を読み取れるようにする
    cmd.StartInfo.UseShellExecute = False
    cmd.StartInfo.RedirectStandardOutput = True
    cmd.StartInfo.RedirectStandardInput = False
    'ウィンドウを表示しないようにする
    cmd.StartInfo.CreateNoWindow = True
    'コマンドラインを指定（先頭の「/c」は実行後閉じるために必要）
    cmd.StartInfo.Arguments = "/c curl inet-ip.info/ip"
    '起動
    cmd.Start()
    '出力を読み取る
    Dim results As String = cmd.StandardOutput.ReadToEnd()
    'プロセス終了まで待機する
    'WaitForExitはReadToEndの後である必要がある(親プロセス、子プロセスでブロック防止のため)
    cmd.WaitForExit()
    cmd.Close()

    '出力された結果を表示
    Return results '.Trim() ※1
Catch ex As Exception
    Return String.Empty
End Try
End Function

'ホスト名(フルコンピューター名)を取得
Dim strHostName As String = System.Net.Dns.GetHostName()
'取得したホスト名からローカルIPを取得
Dim LocalAddress As System.Net.IPAddress() = System.Net.Dns.GetHostAddresses(strHostName)