版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

 

通过IPGlobalProperties类可以获得网络连接的信息：

 

 

 

通过GetIPGlobalProperties方法来获得一个IPGlobalProperties实例：

 

Dim IPGP As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties

 具体代码如下：

 

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim IPGP As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties

        TextBox1.Text = "DHCP范围名：" & IPGP.DomainName & vbCrLf

        TextBox1.Text &= "网络适配器标识符：" & IPGP.DhcpScopeName & vbCrLf

        TextBox1.Text &= "主机名：" & IPGP.HostName & vbCrLf

        TextBox1.Text &= "WINS代理：" & IPGP.IsWinsProxy & vbCrLf

 

        Dim nodeType As String = ""

        Select Case IPGP.NodeType

            Case NetBiosNodeType.Broadcast

                nodeType = "广播节点"

            Case NetBiosNodeType.Hybrid

                nodeType = "Hybrid 混合节点"

            Case NetBiosNodeType.Mixed

                nodeType = "Hybrid 混合节点上"

            Case NetBiosNodeType.Peer2Peer

                nodeType = "对等节点"

            Case NetBiosNodeType.Unknown

                nodeType = "未知节点类型"

            Case Else

                nodeType = "未知状态"

        End Select

        TextBox1.Text &= "节点类型：" & nodeType & vbCrLf

    End Sub

运行如下：

 

 

 

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

 

学习更多vb.net知识，请参看vb.net 教程 目录

————————————————

版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/UruseiBest/article/details/81811573