ホスト名(ドメイン)を指定して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 記事・情報の無断転載を禁止します。