Numéro de série du disque dur

Question

Salut tout le monde, j'aurais besoin de votre aide :

Savez-vous comment trouver le numéro de série d'un disque dur en vb6?

Merci d'avance à tous.

Jujufouq

cs_processus · Answer

De manière simple (sans utiliser les API) : L'objet FSO (File System Object)

Ex de la MSDN:
Sub AfficheInfoLecteur(drvpath)
    Dim fs, d, s, t
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
    Select Case d.DriveType
        Case 0: t = "Inconnu"
        Case 1: t = "Amovible"
        Case 2: t = "Fixe"
        Case 3: t = "Réseau"
        Case 4: t = "CD-ROM"
        Case 5: t = "Disque RAM"
    End Select
    s = "Lecteur " & d.DriveLetter & ": - " & t
    s = s & vbCrLf & "SN: " & d.SerialNumber
    MsgBox s
End Sub

==============
Site Web de JDPROG
Présentation de MP3 Index
Logiciel d'indexation de fichier MP3

http://jdprog.fr.st

cs_Sator2 · Answer

salut j'ai un prob... avec ce code ou avec mes connaissances.... la deusi&#232;me possibilit&#233; me semble la plus juste... j'ai besoin de conna&#238;tre ces param&#232;tre de pas du C: mais de la lettre O: je fais comment????
merci pour ta r&#233;ponse....
@+ Laurent

cs_Sator2 · Answer

Sorry...j'ai trouv&#233;

Numéro de série du disque dur

3 réponses

Discussions similaires