Devuelve el número de serie decimal utilizado para identificar únicamente un volumen de disco.

objecto.SerialNumber 

El objeto es siempre un objeto Drive.

Comentarios

Puede utilizar la propiedad SerialNumber para asegurar que se ha insertado el disco correcto en una unidad de medios extraíbles.

La siguiente porción de código ilustra el uso de la propiedad SerialNumber:

[JScript]
function MostrarInfoUnidad(rutaUnidad)
  var fso, d, s, t;
  fso = new ActiveXObject("Scripting.FileSystemObject");
  d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(rutaUnidad)));
  switch (d.DriveType)
  {
    case 0: t = "Desconocido"; break;
    case 1: t = "Extraíble"; break;
    case 2: t = "Fijo"; break;
    case 3: t = "Red"; break;
    case 4: t = "CD-ROM"; break;
    case 5: t = "Disco RAM"; break;
  }   
  s = "Unidad " + d.DriveLetter + ": - " + t;
  s += "<br>" + "SN: " + d.SerialNumber;
  return(s);
}
[VBScript]
Function MostrarInfoUnidad(rutaUnidad)
   Dim fso, d, s, t
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(rutaUnidad)))
   Select Case d.DriveType
      Case 0: t = "Desconocido"
      Case 1: t = "Extraíble"
      Case 2: t = "Fijo"
      Case 3: t = "Red"
      Case 4: t = "CD-ROM"
      Case 5: t = "Disco RAM"
   End Select
   s = "Unidad " & d.DriveLetter & ": - " & t
   s = s & "<BR>" & "SN: " & d.SerialNumber
   MostrarInfoUnidad = s
End Function