ホスト名(ドメイン)を指定してIPアドレスを取得する
|
|
.NET (VB)の内容
|
【注意書き】 ●VB.NET を使っているものとします。 ●動作環境は、Windows XX を使用しているとします。
.NET でも、ホスト名から、IPアドレスの一覧を取得 することが可能です。
この機能を使えば、簡単に、 ドメインを指定して、IPアドレスの一覧を取得したり、 ネットワークの情報として表示させる場合などに活用できます。
フォームに次の様なコードを記述します
-----------VB.NETコーディングここから-------------------
1.フォームに、テキストボックスコントロール、 ボタンコントロール、 リストボックスコントロール を配置します。 下記は、デフォルトのオブジェクトの名前と配置を示しています。
┏━━━━━━━━━━━┓┏━━━━━━━━━━━┓ ┃Label1 ┃┃TextBox1 ┃ ┗━━━━━━━━━━━┛┗━━━━━━━━━━━┛ ┏━━━━━━━━━━━━┓ ┃ListBox1 ┃ ┃ ┃ ┃ ┃ ┗━━━━━━━━━━━━┛ ┏━━━━┓ ┃Button1 ┃ ┗━━━━┛
2.ボタンコントロールの Button1 text プロパティに「取得」と記述します。 ラベルコントロールの Label1 text プロパティに「ホスト名」と記述します。
※説明用のためです。必須ではありません。
┏━━━━━━━━━━━┓┏━━━━━━━━━━━┓ ┃ホスト名 ┃┃TextBox1 ┃ ┗━━━━━━━━━━━┛┗━━━━━━━━━━━┛ ┏━━━━━━━━━━━━┓ ┃ListBox1 ┃ ┃ ┃ ┃ ┃ ┗━━━━━━━━━━━━┛ ┏━━━━┓ ┃取得 ┃ ┗━━━━┛
3.ボタンコントロールをダブルクリックして、 ボタンのクリックイベントの編集を開始して、 フォームの宣言部に、次のコードを記述します。
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
4.ビルドして実行します。
5.ホスト名が指定されている事を確認して、 取得ボタンを押します。
※デフォルトで、自分のホスト名が表示されています。 外部ホスト名(ドメイン指定も可能です)
6.フォームに表示された リストボックスに、表示されているホスト名の 保持しているIPアドレスの一覧が表示されます。
-----------VB.NETコーディングここまで-------------------
本サンプルでは、 ホストが保持しているIPアドレスの一覧を全部 リストボックスへ追加して、表示するようにしています。
通常は、1マシン、1つのIPアドレスとなるようですが、 ルーターや、ゲートウェイのようにネットワーク仲介の PCは、複数のIPを保持するようです。
|
http://anetm.com/dev/d.cgi?SC=DTDTL&o=Ow3
Copyright(c)2001-2006 Ai Net Makoto 記事・情報の無断転載を禁止します。
|