VB.Net查询机器所有usb接口的信息

VB.Net调用WMI可以实现系统管理和系统信息查询等。msdn上只有C++和vbs脚本演示,乐博网在vbs脚本基础上将发布WMI系列文章演示如何将WMI应用到VB.Net上。

调试环境 vb2005 windows2003

VB.Net查询机器所有usb接口的信息我本地机器后面有5个usb接口,前面有两个usb接口,经检测提示5个usb接口信息,所以猜测前面2个接口是从后面接口中引线出来的 ^_^

Sub Lobdotcn()

Dim strComputer As String = "."
Dim objWMIService As Object = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Dim colItems As Object = objWMIService.ExecQuery _
("Select * from Win32_USBHub")
Dim objItem As Object
For Each objItem In colItems
MsgBox("Device ID: " & objItem.DeviceID & vbCrLf _
& "PNP Device ID: " & objItem.PNPDeviceID & vbCrLf _
& "Description: " & objItem.Description)
Next

End Sub

展开阅读全文

没有更多推荐了,返回首页