AutoIt Français

Code : Tout sélectionner

If _RemoveMediaDetect() Then
    MsgBox(0, "", "Disque(s) amovible(s) détecté(s)")
EndIf

Func _RemoveMediaDetect()
    $var = DriveGetDrive( "REMOVABLE" )
    If NOT @error Then
        Local $s = ""
        For $i = 1 to $var[0]
            $s&= "Périphériques Externes [" & $i&"] : "&$var[$i]&" > nom = "&DriveGetLabel($var[$i])&@CRLF
        Next
        MsgBox(4096,"",$s)
    EndIf
EndFunc

Code : Tout sélectionner

Local $sDrives
Local $aUSBDrives = _ListUSBVolumes()

For $i = 1 To $aUSBDrives[0]
    $sDrives &= $aUSBDrives[$i] & @TAB & DriveGetLabel($aUSBDrives[$i]) & @CRLF
Next
MsgBox(0, "USB Drives", "Liste des volumes de type USB : " & @CRLF & $sDrives)



; #FUNCTION# ====================================================================================================================
; Name ..........: _ListUSBVolumes
; Description ...: List USB volumes
; Syntax ........: _ListUSBVolumes()
; Parameters ....: None
; Return values .: An array of strings (USB drive letter followed by colon) of drives found.
;                  The zeroth array element contains the number of drives.
; Author ........: JGUINCH
; ===============================================================================================================================
Func _ListUSBVolumes()
    Local $aResult[1]

    Local $oDrive, $sDeviceID, $oPartitions, $oPartition, $oLogicalDisks, $oLogicalDisk, $sDriveLetter
    Local $oWMIService = ObjGet("winmgmts:\\" & @ComputerName & "\root\cimv2")

    Local $oDiskDrives = $oWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive Where InterfaceType = 'USB'")

    For $oDrive In $oDiskDrives
        $sDeviceID = StringReplace($oDrive.DeviceID, "\", "\\")
        $oPartitions = $oWMIService.ExecQuery _
            ("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & _
                $sDeviceID & """} WHERE AssocClass = " & _
                    "Win32_DiskDriveToDiskPartition")

        For $oPartition In $oPartitions
            $oLogicalDisks = $oWMIService.ExecQuery _
                ("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & _
                    $oPartition.DeviceID & """} WHERE AssocClass = " & _
                        "Win32_LogicalDiskToPartition")

            For $oLogicalDisk In $oLogicalDisks
                $sDriveLetter = $oLogicalDisk.DeviceID
                If $sDriveLetter <> "" Then
                    Redim $aResult[ UBound($aResult) + 1]
                    $aResult[ UBound($aResult) - 1] = $sDriveLetter
                EndIf
            Next
        Next
    Next

    $aResult[0] = UBound($aResult) - 1
    Return $aResult
EndFunc