1. Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies. En savoir plus.
  2. Bonjour tout le monde ! Veillez consulter la Politique de forum pour comprendre nos règles, Merci a vous !
    Rejeter la notice

Lister les clés USB connectées à votre ordinateur

Discussion dans 'Windev' créé par suenodesign, Fev 9, 2018.

  1. suenodesign

    suenodesign Well-Known Member
    MEMBRE WX

    Inscrit:
    Jan 1, 2018
    Messages:
    507
    J'aime reçus:
    732
    Afin de lister les clés USB connectées à votre ordinateur

    Procédez comme suit :

    1- Créer une structure qui contiendra toutes les informations associées à une clé USB
    Code (Windev):
    USB_Infos est une Structure
        USB_ID est une chaîne
        USB_Lecteur est une chaîne
        Unique_DeviceID est une chaîne
        USB_Manufacturer est une chaîne
        USB_DeviceDesc est une chaîne
        USB_serial est une chaîne
        USB_Class est une chaîne
        USB_Location est une chaîne
        USB_Friendly est une chaîne
        USB_Liblet est une chaîne
        USB_EspaceUtilisé est une chaîne
        USB_EspaceLibre est une chaîne
        USB_Capacité est une chaîne
    FIN
    2- Définir la fonction [ My_Get_Liste_USB ]
    Code (Windev):
    PROCEDURE My_Get_Liste_USB()
    TabLettreAtt est un tableau de 26 chaînes
    nCptTab est un entier
    _USB est une USB_Infos
    TabUSB est un tableau <agrandissement=1> de USB_Infos

    POUR j = 65 A 90
        _USB:USB_ID =

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

    (USBLecteur,

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

    (j)+":")
        SI

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

    (_USB:USB_ID,3) = "USB" ALORS
            SI

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

    (TabLettreAtt,tcLinéaire,

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

    (j),1) = -1 ALORS
                SI

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

    (

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

    (j)) ALORS
                    //                trace(Caract(j)+":")
                    _USB:USB_Lecteur=

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

    (j)+":"
                    _USB:Unique_DeviceID=_USB:USB_ID
                    _USB:USB_Manufacturer=

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

    (_USB:USB_ID,USBPropertyManufacturer)
                    _USB:USB_DeviceDesc=

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

    (_USB:USB_ID,USBPropertyDeviceDesc)
                    _USB:USB_serial=

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

    (

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

    (_USB:USB_ID,4,"&",DepuisDébut),1,"\",DepuisFin)
                    _USB:USB_Class=

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

    (_USB:USB_ID,USBPropertyClass)
                    _USB:USB_Location=

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

    (_USB:USB_ID,USBPropertyLocation)
                    _USB:USB_serial =

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

    (_USB:USB_ID,1,"\",DepuisFin)
                    _USB:USB_Liblet =

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

    (_USB:USB_Lecteur, fdNomVolume)
                    _USB:USB_Capacité=

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

    (_USB:USB_Lecteur, fdEspaceTotal)
                    _USB:USB_EspaceLibre=

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

    (_USB:USB_Lecteur, fdEspaceLibre)
                    _USB:USB_EspaceUtilisé=

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

    (_USB:USB_Capacité)-

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

    (_USB:USB_EspaceLibre)
                    _USB:USB_Friendly=""
                    nCptTab++
                    TabUSB[nCptTab]=_USB
                FIN
            FIN  
        FIN
    FIN

    RENVOYER TabUSB
    3- Exemple de récupération des infos sur les clés connectées :
    Code (Windev):
    POUR TOUT _CléUSB DE TabUSB
       

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

    (

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

    ("Lecteur",25," ")+" : "+_CléUSB:USB_Lecteur)
       

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

    (

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

    ("Liblet",25," ")+" : "+_CléUSB:USB_Liblet)
       

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

    (

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

    ("Serial",25," ")+" : "+_CléUSB:USB_serial)
       

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

    (" ")
       

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

    (

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

    ("Manufacturer",25," ")+" : "+_CléUSB:USB_Manufacturer)
       

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

    (

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

    ("Device ID",25," ")+" : "+_CléUSB:Unique_DeviceID)
       

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

    (

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

    ("Location",25," ")+" : "+_CléUSB:USB_Location)
       

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

    (

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

    ("Device Desc.",25," ")+" : "+_CléUSB:USB_DeviceDesc)
       

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

    (

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

    ("Class",25," ")+" : "+_CléUSB:USB_Class)
       

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

    (

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

    ("Capacité",25," ")+" : "+

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

    (_CléUSB:USB_Capacité))
       

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

    (

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

    ("Espace Libre",25," ")+" : "+

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

    (_CléUSB:USB_EspaceLibre))
       

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

    (

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

    ("Espace Utilisé",25," ")+" : "+

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

    (_CléUSB:USB_EspaceUtilisé))
       

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

    (

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

    ("Friendly",25," ")+" : "+_CléUSB:USB_Friendly)
       

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

    ("---------------------------------------------------------------------------")
    FIN  
    Ce code permet récupérer la liste des clés USB attachées à l'ordinateur dans divers traitements.

    Exp : Limiter l'utilisation d'un logiciel par clé USB
     
  2. ProDev

    ProDev Well-Known Member
    MEMBRE WX

    Inscrit:
    Fev 11, 2018
    Messages:
    371
    J'aime reçus:
    372
    Merci

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

     
    suenodesign apprécie ceci.
  3. warjoen

    warjoen Active Member
    MEMBRE WX

    Inscrit:
    Jan 1, 2018
    Messages:
    155
    J'aime reçus:
    120
    Thanks my Friend.....

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

     
    suenodesign apprécie ceci.
  4. rafik19

    rafik19 Member

    Inscrit:
    Jan 1, 2018
    Messages:
    35
    J'aime reçus:
    14
    thanks je teste le code
     

Partager cette page

Chargement...