dim fso,f
Set fso = SERVER.CreateObject("Scripting.FileSystemObject")
Set f = fso.GetDrive("c")
Response.write "这是C盘序号:"& f.SerialNumber
set f=nothing
set fso=nothing
Set fso = SERVER.CreateObject("Scripting.FileSystemObject")
Set f = fso.GetDrive("c")
Response.write "这是C盘序号:"& f.SerialNumber
set f=nothing
set fso=nothing