WD Clé USB

Salut a tous
Je veux savoir comment obtenir les informations USB sélectionnées

Mon Code Dans la Selecteur:

SI MoiMême=1 ALORS
LISTE_SansNom1..Visible=Faux
SAI_Numéro_de_sérier = sNuméroFinal
SINON
ListeSupprimeTout(LISTE_SansNom1)
LISTE_SansNom1..Visible=Vrai
gpautAutObjetResultats = gpautAutObjetService>>ExecQuery("SELECT Model, Size, SerialNumber, Signature " +
"FROM Win32_DiskDrive Where MediaType = 'Removable Media' ")
POUR x=0 _À_ gpautAutObjetResultats>>count -1
sListe est une chaîne = gpautAutObjetResultats>>ItemIndex(x)>>Properties_("Model")>>Value
ListeAjoute(LISTE_SansNom1,sListe)
FIN

FIN

Code Dans "Selectioné d'une ligne de Liste_sansnom :

objLocator est un objet Automation "WbemScripting.SWbemLocator"
objService est un objet Automation dynamique
Results est un objet Automation dynamique
QUAND EXCEPTION DANS
objService = objLocator>>ConnectServer(".", "root\cimv2")
objService>>Security_>>ImpersonationLevel = 3
// Infos périphériques amovibles
Results = objService>>ExecQuery("SELECT SerialNumber, Signature " +
"FROM Win32_DiskDrive Where MediaType = 'Removable Media' ")
sUSBSN2 est une chaîne
sSignature2 est une chaîne
POUR x = 0 _À_ Results>>Count -1

sUSBSN2 = Results>>ItemIndex(x)>>Properties_("SerialNumber")>>Value
sSignature2 = Results>>ItemIndex(x)>>Properties_("Signature")>>Value

FIN
FAIRE
Erreur("Erreur execution WMI",ExceptionInfo(errInfo))
ExceptionActive()
FIN

ici je récupère les information de 2 clé USB
mais je veux récupérer seulement celui sélectionné!
merci

 

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

Bonjour,
Pourquoi ne pas utiliser les

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

de windev ?

Code (Text):

Détecter des périphériques
Afficher les périphériques
Sélectionner le périphérique
Traiter le périphérique comme un HD
 

Les exemples fournis dans la doc sont très parlants. Il n'y a plus qu'à les adapter

Cliquez pour agrandir...