<!DOCTYPE html>
<html>
<body>
<%
dim fs,d
设置 fs=Server.CreateObject("Scripting.FileSystemObject")
设置 d=fs.GetDrive("c:")
Response.Write("序列号为 "& d.SerialNumber)
设置 d=nothing
设置 fs=nothing
%>
</body>
</html>