获取U盘信息 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 获取U盘信息

共有2537人关注过本帖树形打印复制链接主题：获取U盘信息

lihe60

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6912 积分：43778 威望：0 精华：0 注册：2009/3/2 14:07:00

获取U盘信息 发帖心情

Post By：2018/6/1 15:43:00 [只看该作者]

下面代码获取三个信息，如何只输出U盘的信息？

Dim objWMIService As Object

Dim colItems As Object

Dim objitem As Object

Dim a, b, c, d, e, U_Dist

objWMIService = GetObject("winmgmts:\\.\root\cimv2")

colItems = objWMIService.ExecQuery("Sele ct * From Win32_USBHub")

For Each objitem In colItems

a = objitem.DeviceID

If a Like "*VID*" Then '

b = Split(a, "\")

c = Split(b(UBound(b) - 1), "&")

d = Split(c(UBound(c) - 1), "_")

e = Split(c(UBound(c)), "_")

U_Dist = d(UBound(d)) + e(UBound(e)) + b(UBound(b))

output.Show(U_Dist)

End If

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/1 16:01:00 [只看该作者]

Dim s As String = "USB*"

Dim USBDevices, USBDevice, USBDiskPartitions, USBDiskPartition, LogicalUSBDisks, LogicalUSBDisk , objWMIService As Object
objWMIService = GetObject("winmgmts:\\.\root\cimv2")
USBDevices = objWMIService.execquery("Select * From Win32_DiskDrive where InterfaceType='USB'")
For Each USBDevice In USBDevices
    If USBDevice.PNPDeviceID Like s Then
        USBDiskPartitions = objWMIService.execquery("Associators of {Win32_DiskDrive.DeviceID='" & USBDevice.DeviceId & "'} where AssocClass = Win32_DiskDriveToDiskPartition")
        For Each USBDiskPartition In USBDiskPartitions
            LogicalUSBDisks = objWMIService.execquery("Associators of {Win32_DiskPartition.DeviceID='" & USBDiskPartition.DeviceId & "'} where AssocClass = Win32_LogicalDiskToPartition")
            For Each LogicalUSBDisk In LogicalUSBDisks
                msgbox(LogicalUSBDisk.DeviceId)
            Next
        Next
        Exit For
    End If
Next

lihe60

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6912 积分：43778 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2018/6/1 16:15:00 [只看该作者]

读出来盘符，但U盘的序列号不能读出来。

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/1 17:15:00 [只看该作者]

Dim USBDevices, USBDevice As object
Dim objWMIService = GetObject("winmgmts:\\.\root\cimv2")
USBDevices = objWMIService.execquery("Select * From Win32_DiskDrive where InterfaceType='USB'")
For Each USBDevice In USBDevices
    msgbox(USBDevice.Caption)
    msgbox(USBDevice.PNPDeviceID)
    msgbox(USBDevice.Size)
Next

下一主题 >> << 上一主题

主题：获取U盘信息