usb disk - odabir uredaja

[ SSR @ 31.03.2010. 14:58 ] @

Zelim da na onload forme iscitam u combo box sve USB Stikove koji su prikljuceni,A moze i sve diskove sa usbovima,Znaci u comboboxu dobijem sledece : C;D;E;F;G --- Zavisi koliko dikova ima na racunalu,nakon odabira jednog sa combo liste u txtbox zelim da prikazem seriski broj tog uređaja.

Nadam se da nije tesko pitanje

Nesto poput PNPDeviceID :

Code:
Dim USBSERIJAL, BROJSL As String

BROJSL = Len(" ")

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDiskDrives = objWMIService.ExecQuery _
("Select * from Win32_DiskDrive")

For Each objDiskDrive In colDiskDrives
For i = LBound(objDiskDrive.Capabilities) To _
UBound(objDiskDrive.Capabilities)

Next

USBSERIJAL = Right(Trim(objDiskDrive.PNPDeviceID), BROJSL)
ID = USBSERIJAL
Next
Exit Function