< Complete Drive Object Reference
The SerialNumber property returns the serial number of a specified drive.
Syntax
DriveObject.SerialNumber
Example
<%
dim fs,d
set fs=Server.CreateObject("Scripting.FileSystemObject")
set d=fs.GetDrive("c:")
Response.Write("The serial number is: " & d.SerialNumber)
set d=nothing
set fs=nothing
%>
Output:
The serial number is: 474680516
< Complete Drive Object Reference