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 :
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
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