Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

usb disk - odabir uredaja

[es] :: Access :: usb disk - odabir uredaja

[ Pregleda: 1126 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

SSR

Član broj: 256226
Poruke: 1
92.36.192.*



Profil

icon usb disk - odabir uredaja31.03.2010. u 14:58 - pre 183 meseci
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
Prikačeni fajlovi
USB.mdb USB.mdb - 196k
 
Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 878
*.dynamic.isp.telekom.rs.



+41 Profil

icon Re: usb disk - odabir uredaja31.03.2010. u 20:41 - pre 183 meseci
Jel može ovo da zadovolji ?
Jednog dana...
Prikačeni fajlovi
SLOJ-USB.rar SLOJ-USB.rar - 16.29k
 
Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 878
*.dynamic.isp.telekom.rs.



+41 Profil

icon Re: usb disk - odabir uredaja09.04.2010. u 19:48 - pre 183 meseci
Šta bi sa pokretačem teme?!
Jednog dana...
 
Odgovor na temu

[es] :: Access :: usb disk - odabir uredaja

[ Pregleda: 1126 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.