・業務システム 設計開発 ・Webサイト設計開発 ・パソコン保守 サポート ・ECSite販売 設計開発 ・VBソフト設計開発

072-807-8850受付:9:00~17:00 休業日:土日祝

ホスト名からIPアドレスを取得する  次の文書

Dim ipa As IPAddress
Dim iphEntry As IPHostEntry = Dns.GetHostEntry(Dns.GetHostName())
For Each ipAddr As IPAddress In iphEntry.AddressList
 If ipAddr.AddressFamily = Sockets.AddressFamily.InterNetwork Then
  ipa = ipAddr
  Exit For
 End If
Next

AddressFamilyを調べることでIPv4かIPv6か判定できる。
・IPv4=Sockets.AddressFamily.InterNetwork
・IPv6=Sockets.AddressFamily.InterNetworkV6

参照元:http://natchan-develop.seesaa.net/article/217830910.html

 




← 左の文字をここへ入力後 登録ボタンをクリックしてください

(サイト管理者承認後掲載されます)