VBS tutorial: Properties-SerialNumber Properties

SerialNumber Properties

Returns the decimal serial number to uniquely identify a disk volume.

object.SerialNumber

objectShould beDriveThe name of the object.

illustrate

AvailableSerialNumberProperties to ensure that the correct disk is inserted in the removable media drive.

The following code shows how to use itSerialNumberproperty:

Function ShowDriveInfo(drvpath)    Dim fso, d, s, t    Set fso = CreateObject("")    Set d = (((drvpath)))    Select Case         Case 0: t = "unknown"        Case 1: t = "Movable"        Case 2: t = "fixed"        Case 3: t = "network"        Case 4: t = "CD-ROM"        Case 5: t = "RAM disk"    End Select    s = "Drive " &  & ": - " & t    s = s & "<BR>" & "Serial number：" & ShowDriveInfo = sEnd Function

See