<อ้างอิงวัตถุไดรฟ์ที่สมบูรณ์
คุณสมบัติ 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
<อ้างอิงวัตถุไดรฟ์ที่สมบูรณ์