SerialNumber, propriété

---

Description

Renvoie le numéro de série décimal utilisé pour identifier de manière unique un volume de disque.

Syntaxe

object.SerialNumber

L'argument object représente toujours un objet Drive.

Notes

Vous pouvez utiliser la propriété SerialNumber pour vous assurer que le disque approprié est présent dans un lecteur à support amovible.

Le code suivant illustre l'emploi de la propriété SerialNumber :

Function ShowDriveInfo(drvpath)
  Dim fso, d, s, t
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set d = fso.GetDrive(fso.GetDriveName(fso.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 = "RAM Disk"
  End Select
  s = "Lecteur " & d.DriveLetter & ": - " & t
  s = s & "<BR>" & "SN: " & d.SerialNumber
  ShowDriveInfo = s
End Function

---