1 Set wmi=getobject("winmgmts:")
2 For Each disk In wmi.execquery("select * from win32_diskdrive")
3  For Each partition In wmi.execquery("associators of {win32_diskdrive.deviceid='" & disk.deviceid & "'} where assocclass = win32_diskdrivetodiskpartition")
4   For Each drive In wmi.execquery("associators of {win32_diskpartition.deviceid='" & partition.deviceid & "'} where assocclass = win32_logicaldisktopartition")
5    If drive.drivetype = 2 Then
6     serial = disk.pnpdeviceid
7     pos = 1
8     While pos
9      pos = instr(serial, "\")
10      serial = Mid(serial, pos + 1)
11     Wend
12     serial = Mid(serial, 1, instr(serial, "&") - 1)
13     result = result & drive.deviceid & vbtab & serial & vbcrlf
14    End If
15   Next
16  Next
17 Next
18 
19 If len(result) > 0 Then
20  msgbox result, vbinformation, "Serial USB"
21 Else
22  msgbox "No removable disks found.", vbexclamation, "Error"
23 End If