ホストのネットワーク情報を取得する 【注意書き】●VB.NET を使っているものとします。●動作環境は、Windows XX を使用しているとします。.NET でも、ホスト名やIPアドレスを取得させることが可能です。この機能を使えば、簡単に、ネットワークを活用するアプリケーションなどで重要になるIPアドレスなどの情報を取得させるなど簡単に作成できます。フォームに次の様なコードを記述します-----------VB.NETコーディングここから-------------------１．フォームに、テキストボックスコントロール、 ボタンコントロール を配置します。 下記は、デフォルトのオブジェクトの名前と配置を示しています。 ┏━━━━━━━━━━━┓ ┃TextBox1 ┃ ┗━━━━━━━━━━━┛ ┏━━━━━━━━━━━┓ ┃TextBox2 ┃ ┗━━━━━━━━━━━┛ ┏━━━━┓ ┃Button1 ┃ ┗━━━━┛２．ボタンコントロールの Button1 text プロパティに「取得」と記述します。 ※説明用のためです。必須ではありません。 ┏━━━━━━━━━━━┓ ┃TextBox1 ┃ ┗━━━━━━━━━━━┛ ┏━━━━━━━━━━━┓ ┃TextBox2 ┃ ┗━━━━━━━━━━━┛ ┏━━━━┓ ┃ 取 得 ┃ ┗━━━━┛３．ボタンコントロールをダブルクリックして、 ボタンのクリックイベントの編集を開始して、 フォームの宣言部に、次のコードを記述します。 ※フォームクラス定義(Public Class Form1)より、 上に記述してください。 'インポート Imports System Imports System.Net さらに、次のコードを記述します。 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim ipHost As IPHostEntry Dim ipAdr As IPAddress ipHost = Dns.Resolve(Dns.GetHostName()) For Each ipAdr In ipHost.AddressList TextBox1.Text = "ホスト名：" & _ Dns.GetHostByAddress(ipAdr).HostName TextBox2.Text = "IPアドレス：" & ipAdr.ToString Next End Sub４．ビルドして実行します。５．フォームに表示された ボタン「取得」を押します。６．テキストボックス(TextBox1)に 「ホスト名：**** 」と表示されます７．テキストボックス(TextBox2)に 「IPアドレス：**** 」と表示されます-----------VB.NETコーディングここまで-------------------Dns クラス（System.Net名前空間）を使用して、ネットワーク情報にアクセスしています。IPアドレスからDNSを使用して名前解決を行っています。また、本サンプルでは使用しておりませんが、Dns.GetHostName()のコードでも ホスト名の取得は可能です。
Copyright(c)2001-2004 Ai Net Makoto 記事・情報の無断転載を禁止します。
