1,502
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
oyljerry 2009-02-13
- 打赏
- 举报
这是采用WMI的方式查询...注册表有可能是取不到。:(
霜吹花落 2009-02-13
- 打赏
- 举报
自己找到了一种方法：
'添加引用System.Management
Imports System.Management
Dim vNetworkAdapter As New ManagementClass("Win32_NetworkAdapter")
Dim vNetworkAdapters As ManagementObjectCollection = vNetworkAdapter.GetInstances()
Dim vNetworkAdapterInfo As ManagementObject
For Each vNetworkAdapterInfo In vNetworkAdapters
Console.WriteLine("caption:{0}", vNetworkAdapterInfo.Properties("Caption").Value)
Console.WriteLine("description:{0}", vNetworkAdapterInfo.Properties("Description").Value)
Console.WriteLine("NetConnectionID:{0}", vNetworkAdapterInfo.Properties("NetConnectionID").Value)
Console.WriteLine("NetEnabled:{0}", vNetworkAdapterInfo.Properties("NetEnabled").Value)
Next
NetEnabled 为TRUE 并且NetConnectionID为空的就是了！嘿嘿
'添加引用System.Management
Imports System.Management
Dim vNetworkAdapter As New ManagementClass("Win32_NetworkAdapter")
Dim vNetworkAdapters As ManagementObjectCollection = vNetworkAdapter.GetInstances()
Dim vNetworkAdapterInfo As ManagementObject
For Each vNetworkAdapterInfo In vNetworkAdapters
Console.WriteLine("caption:{0}", vNetworkAdapterInfo.Properties("Caption").Value)
Console.WriteLine("description:{0}", vNetworkAdapterInfo.Properties("Description").Value)
Console.WriteLine("NetConnectionID:{0}", vNetworkAdapterInfo.Properties("NetConnectionID").Value)
Console.WriteLine("NetEnabled:{0}", vNetworkAdapterInfo.Properties("NetEnabled").Value)
Next
NetEnabled 为TRUE 并且NetConnectionID为空的就是了！嘿嘿
霜吹花落 2009-02-13
- 打赏
- 举报
vista系统
没有找到键值
没有找到键值
oyljerry 2009-02-13
- 打赏
- 举报
LinkName$=CreateObject("Wscript.Shell").RegRead("HKLM\SOFTWARE\Microsoft\RAS AutoDial\Default\DefaultInternet")
执行完成后，字符串变量LinkName中，就是你的默认连接的名称
如果你的连接不是默认连接，可以在注册表相同位置寻找，所有的连接名称都在那附近，用同上的方法一样可以读到
执行完成后，字符串变量LinkName中，就是你的默认连接的名称
如果你的连接不是默认连接，可以在注册表相同位置寻找，所有的连接名称都在那附近，用同上的方法一样可以读到
这是一个完整的实例，用VB.net写的，开发环境是win8+VB2012。
可以用来查询所有的USB设备，获得设备ID和硬件号等详细信息。没有用DLL等太多的东西。代码很小。应该在其它版本也是能用的。
