strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDisks = objWMIService.ExecQuery _
("SELECT * FROM Win32_LogicalDisk")
For Each objDisk in colDisks
If objDisk.DriveType = 2 Then
Set fso = CreateObject("Scripting.FileSystemObject")
For Each Drive In fso.Drives
If Drive.IsReady Then
If Drive.DriveType = 1 Then
NumSerie=fso.Drives(Drive + "\").SerialNumber
Amovible=fso.Drives(Drive + "\") & "\"
Numserie=ABS(INT(Numserie))
volume=fso.Drives(Drive + "\").VolumeName
end if
End If
Next
End If
Next
MsgBox "Le Flash disk inseré " & Amovible & vbCrlF &_
volume & " a pour Numéro de série : " & vbCrlF &_
NumSerie,vbInformation,"Numéro de série Flash USB by Hackoo 2015"
28 juin 2016 à 19:41
merci quand meme