以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  这是什么错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=173785)
--  作者：wohenguaia
--  发布时间：2021/12/16 11:43:00
--  这是什么错误
图片点击可在新窗口打开查看
代码如下：
Dim mc As System.Management.ManagementClass = New System.Management.ManagementClass("Win32_NetworkAdapterConfiguration")
Dim nics As System.Management.ManagementObjectCollection = mc.GetInstances()

For Each nic As System.Management.ManagementObject In nics
    
    If Convert.ToBoolean(nic("ipEnabled")) = True Then
       \'output.show((TryCast(nic("IPAddress") & String()))(0))
      \' output.show((TryCast(nic("IPSubnet") & String()))(0))
     output.show(Convert.ToString(nic("DefaultIPGateway")(0)))
    End If
Next
--  作者：有点蓝
--  发布时间：2021/12/16 13:39:00
--  
DefaultIPGateway这个属性不是所有的IP都存在存在，nic("DefaultIPGateway")是空值，加个判断

    If nic("DefaultIPGateway") IsNot Nothing
        output.show(nic("DefaultIPGateway")(0))
    End If
--  作者：wohenguaia
--  发布时间：2021/12/16 13:58:00
--  
谢谢
--  作者：wohenguaia
--  发布时间：2021/12/16 14:03:00
--  
这个方法对于安装了虚拟机的系统好像不行。我试了下，得到的地址不对。
图片点击可在新窗口打开查看
掩码之外的连个地址是我虚拟机的网关
--  作者：wohenguaia
--  发布时间：2021/12/16 14:07:00
--  
请问有没有获取本机掩码的办法？
--  作者：有点蓝
--  发布时间：2021/12/16 14:08:00
--  
那就换其它方式试试：https://www.baidu.com/baidu?ie=UTF-8&word=c%23+%E8%8E%B7%E5%8F%96IP%E5%9C%B0%E5%9D%80%E7%9A%84%E7%BD%91%E5%85%B3