投稿日	： 2003/03/10(Mon) 13:40
投稿者	： 魔界の仮面弁士
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: VBで自PCのIPドレス取得（Win2000)

> 127.0.0.1
これはループバックアドレスといって、自分自身を表す予約された番号です。

> なにか方法がありましたら宜しくお願いします。
Dim W As Object
Dim N As Object
Dim A As Object
Dim IPs As Variant
Dim D As Variant
Set W = GetObject("winmgmts:")
Set N = W.InstancesOf("Win32_NetworkAdapterConfiguration")
For Each A In N
    Debug.Print A.Caption; "に割り当てられているIPアドレスは、"
    IPs = A.IPAddress
    If IsNull(IPs) Then
        Debug.Print "ありません。"
    Else
        For Each D In IPs
            Debug.Print D,
        Next
        Debug.Print "です。"
    End If
Next

★ - VBで自PCのIPドレス取得（Win2000) - ひでき 03/10-12:58No.3069
• Re: VBで自PCのIPドレス取得（Win2000) - だい 03/10-13:16 No.3070
• Re: VBで自PCのIPドレス取得（Win2000) - 魔界の仮面弁士 03/10-13:40 No.3071
• Re: VBで自PCのIPドレス取得（Win2000) - Starfish 03/11-00:39 No.3081
  • Re^2: VBで自PCのIPドレス取得（Win2000) - ひでき 03/13-10:15 No.3134
    • Re^3: VBで自PCのIPドレス取得（Win2000) - Starfish 03/14-01:04 No.3142
      • Re^4: VBで自PCのIPドレス取得（Win2000) - ひでき 03/18-00:36 No.3185