Bonjour,
Je sais que ce sujet a été mainte fois abordé sur ce forum toutefois je rencontre un problème que je ne comprends pas.
Je ne peux pas récupérer le numéro de série du dernier disque dur ou cle usb.

voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
	Dim n As Integer = 0
	Dim hd As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
		For Each wmiHd As ManagementObject In hd.Get()
			nomDrive = My.Computer.FileSystem.Drives(n).VolumeLabel
				With ListBox1.Items
				.Add("Nom Drive =" & nomDrive)
				.Add("numero serie disk = " & wmiHd("SerialNumber"))
				.Add(" ")
			end with
			n+=1
		Next
 end Sub
Quelqu'un a t'il une idée, quel est le problème ?

Merci de votre réponse