刚才没注意,这是VB的。
dim fso,f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetDrive("c")
Document.write "这是C盘序号:"& f.SerialNumber
set f=nothing
set fso=nothing
ASP的加个SERVER对象:
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
dim fso,f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetDrive("c")
Response.write "这是C盘序号:" f.SerialNumber
set f=nothing
set fso=nothing