Property: SerialNumber for Drive

Download PDF

Updated2024-09-12
1 minute(s) read

DIAdem 2021 Education
DIAdem 2021 Professional
DIAdem 2021 Advanced
+ 3

Specifies the unique decimal serial number of a drive.

Object.SerialNumber

Object	Drive Object with this property
Object.SerialNumber	LongInteger with read access

The following example displays the serial numbers of all drives:

Copy script

Function CreateDriveSerialList
  Dim fso, oMyDrive, oMyDrives, sOutput
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set oMyDrives = fso.Drives
  For Each oMyDrive in oMyDrives
    sOutput = sOutput & oMyDrive.DriveLetter & VBTab 
    If oMyDrive.IsReady Then
      sOutput = sOutput & oMyDrive.SerialNumber
    Else
      sOutput = sOutput & "[Not ready]"
    End If
    sOutput = sOutput & VBCrLf
  Next
  CreateDriveSerialList = sOutput
End Function

DIAdem Help

Table of Contents

Property: SerialNumber for Drive

See Also

Log in to get a better experience