<!DOCTYPE html><html><body><%dim fs,dset fs=Server.CreateObject("Scripting.FileSystemObject")set d=fs.GetDrive("c:")Response.Write("The serialnumber is " & d.SerialNumber)set d=nothingset fs=nothing%></body></html>