ホスト名（ドメイン）を指定してＩＰアドレスを取得する 【注意書き】●VB.NET を使っているものとします。●動作環境は、Windows XX を使用しているとします。.NET でも、ホスト名から、IPアドレスの一覧を取得することが可能です。この機能を使えば、簡単に、ドメインを指定して、IPアドレスの一覧を取得したり、ネットワークの情報として表示させる場合などに活用できます。フォームに次の様なコードを記述します-----------VB.NETコーディングここから-------------------１．フォームに、テキストボックスコントロール、 ボタンコントロール、 リストボックスコントロール を配置します。 下記は、デフォルトのオブジェクトの名前と配置を示しています。 ┏━━━━━━━━━━━┓┏━━━━━━━━━━━┓ ┃Label1 ┃┃TextBox1 ┃ ┗━━━━━━━━━━━┛┗━━━━━━━━━━━┛ ┏━━━━━━━━━━━━┓ ┃ListBox1 ┃ ┃ ┃ ┃ ┃ ┗━━━━━━━━━━━━┛ ┏━━━━┓ ┃Button1 ┃ ┗━━━━┛２．ボタンコントロールの Button1 text プロパティに「取得」と記述します。 ラベルコントロールの Label1 text プロパティに「ホスト名」と記述します。 ※説明用のためです。必須ではありません。 ┏━━━━━━━━━━━┓┏━━━━━━━━━━━┓ ┃ホスト名 ┃┃TextBox1 ┃ ┗━━━━━━━━━━━┛┗━━━━━━━━━━━┛ ┏━━━━━━━━━━━━┓ ┃ListBox1 ┃ ┃ ┃ ┃ ┃ ┗━━━━━━━━━━━━┛ ┏━━━━┓ ┃取得 ┃ ┗━━━━┛３．ボタンコントロールをダブルクリックして、 ボタンのクリックイベントの編集を開始して、 フォームの宣言部に、次のコードを記述します。 Imports System.Net さらに、次のコードを記述します。 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim strIP As IPHostEntry Dim strHOST As String Dim strIPLIST As IPAddress strHOST = TextBox1.Text strIP = Dns.GetHostByName(strHOST) 'IPアドレスの一覧を取得して、リストボックスに表示します ListBox1.Items.Clear() For Each strIPLIST In strIP.AddressList ListBox1.Items.Add(strIPLIST) Next End Sub Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load 'デフォルトでホスト名を設定しておきます TextBox1.Text = Dns.GetHostName End Sub４．ビルドして実行します。５．ホスト名が指定されている事を確認して、 取得ボタンを押します。 ※デフォルトで、自分のホスト名が表示されています。 外部ホスト名（ドメイン指定も可能です）６．フォームに表示された リストボックスに、表示されているホスト名の 保持しているIPアドレスの一覧が表示されます。-----------VB.NETコーディングここまで-------------------本サンプルでは、ホストが保持しているIPアドレスの一覧を全部リストボックスへ追加して、表示するようにしています。通常は、１マシン、１つのIPアドレスとなるようですが、ルーターや、ゲートウェイのようにネットワーク仲介のＰＣは、複数のIPを保持するようです。
Copyright(c)2001-2004 Ai Net Makoto 記事・情報の無断転載を禁止します。
