DIM FSO, F
SET FSO = Server.createObject ("scripting.filesystemObject")
Set f = fso.getdrive ("c")
"This is the C disk sequence number:" & f.Serialnumber
Set f = Nothing
SET FSO = Nothing
