Discussion :

[oli330cd]

Bonjour,
je recherche comment recuperer le N° de serie du disque dur en VB.NET
Merci d'avance
@+

[Roken62]

voici comment faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim p, L As Object
 
L = GetObject("winmgmts:root/cimv2").InstancesOf("CIM_LogicalDisk")
 
 
for Each p In L
            'MsgBox(p.GetObjectText_)  ' Ceci peut te servir si tu recherches quelque chose de particulier.
             Textbox.Text = p.VolumeSerialNumber
        Next

Voilà en esperant t'avoir aidé

[oli330cd]

Merci
effectivement je recupere bien les numeros des volumes des disques dur de mon PC mais aussi du CDROM et du lecteur de disquette.
Comment faire pour savoir a qui appartient chaque N° ?

Encore merci
@+

[troxsa]

Avec WMI

http://msdn.microsoft.com/en-us/library/aa394173.aspx
Propriété : VolumeSerialNumber
Propriété : DriveType = 3

Mes recherche sur google donne :
http://www.eggheadcafe.com/community...ldisk-for.aspx en C# mais tres facile a mettre en vb.net

http://www.vbdotnetforums.com/vb-net...basic-net.html

Je pense que tu arriveras a faire que tu tu souhaite avec ses exemples

Quand tu fais du WMI il ne faut pas oublier d'importer le System.management et en ajoutant la refence ...

@+

[oli330cd]

Merci pour votre aide

Voici donc la reponse à ma question

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Imports System.Management
Imports System.Management.Instrumentation
 
    Private Sub Win32_LogicalDisk()
 
        Dim mangnmt As New ManagementClass("Win32_LogicalDisk")
        Dim mcol As ManagementObjectCollection = mangnmt.GetInstances()
 
        For Each strt As ManagementObject In mcol
            Debug.Print("Name : " & Convert.ToString(strt("Name")))
            Debug.Print("VolumeName : " & Convert.ToString(strt("VolumeName")))
            Debug.Print("FileSystem : " & Convert.ToString(strt("FileSystem")))
            Debug.Print("Size : " & Convert.ToString(strt("Size")))
            Debug.Print("FreeSpace : " & Convert.ToString(strt("FreeSpace")))
            Debug.Print("Description : " & Convert.ToString(strt("Description")))
            Debug.Print("VolumeSerialNumber : " & Convert.ToString(strt("VolumeSerialNumber")))
        Next
    End Sub

Pour plus d'informations voir sur le site de Microsoft à l'adresse ci dessous

http://msdn.microsoft.com/en-us/libr...73(VS.85).aspx

Encore merci
@+