PC の構成によって、IPv6 も使用される場合、通常の IPv4 と区別して情報を取り出す必要があります
Module Module1
Sub Main()
' コンピュータ名
Dim HostName As String = System.Net.Dns.GetHostName()
System.Console.WriteLine(HostName)
Dim HostIP() As System.Net.IPAddress
Dim HostIPAdress As String = ""
HostIP = System.Net.Dns.GetHostEntry(HostName).AddressList
For idx As Integer = 0 To HostIP.Length - 1
' IP version 4 : InterNetwork
If HostIP(idx).AddressFamily = Net.Sockets.AddressFamily.InterNetwork Then
HostIPAdress = HostIP(idx).ToString
System.Console.WriteLine(HostIPAdress)
End If
' InterNetworkV6 は IPv6
If HostIP(idx).AddressFamily = Net.Sockets.AddressFamily.InterNetworkV6 Then
System.Console.WriteLine(HostIP(idx).IsIPv6LinkLocal)
HostIPAdress = HostIP(idx).ToString
System.Console.WriteLine(HostIPAdress)
End If
Next
System.Console.ReadLine()
End Sub
End Module
|
|
【VB.NET : 通信の最新記事】
- VB.net(2010) : COMの Msxml2.ServerXMLHTTP を使用して WEBアプリにバイナリデータを POST する
- VB.net : TKFP.DLL 1.4.3 を使って FTPS でファイル(フォルダ)の一覧を取得する
- VB.net : COMの Msxml2.ServerXMLHTTP を使用して Google のURL短縮サービスを使用する( JSON )
- VB.net : COMの Msxml2.ServerXMLHTTP を使用して URL短縮サービス[bit.ly] を使用する( XML と TEXT )
- VB.net : COMの Msxml2.ServerXMLHTTP を使用して URL短縮サービス[p.tl] を使用する( JSON )
- VB.net : COMの Msxml2.ServerXMLHTTP を使用して WEBアプリにデータを POST する
- VB.net : COMの Msxml2.ServerXMLHTTP を使用して http 通信を行う
- Json.NET を使用して JSON 文字列を VB.net で使用する( 逆シリアライズ )
- VB.net : クライアントが送ったヘッダを表示するだけの HTTPサーバーⅡ
- VB.net : クライアントが送ったヘッダを表示するだけの HTTPサーバー( TcpListener )
- VB.NET : TKMP.DLL でメール送信
