电脑安装软件列表,读取注册表:https://www.baidu.com/s?wd=vb.net%20%E5%AE%89%E8%A3%85%E7%9A%84%E8%BD%AF%E4%BB%B6%E5%88%97%E8%A1%A8
比如win10
Dim rk As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
Output.Show(rk Is Nothing)
Dim names As String() = rk.GetSubKeyNames
For Each s As String In names
Output.Show(s)
Next
不同操作系统注册表路径可能不一样,自己查一查
网络适配器:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=154460