<Полный справочник Drive Object
Свойство SerialNumber возвращает порядковый номер указанного диска.
Синтаксис
DriveObject.SerialNumber
пример
<%
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
<Полный справочник Drive Object