SerialNumber 属性

[code]Function ShowDriveInfo(drvpath)    Dim fso, d, s, t    Set fso = CreateObject("Scripting.FileSystemObject")    Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(drvpath)))    Select Case d.DriveType        Case 0: t = "[/code]未知[code]"[/code][code]        Case 1: t = "[/code]可移动[code]"[/code][code]        Case 2: t = "[/code]固定[code]"[/code][code]        Case 3: t = "[/code]网络[code]"[/code][code]        Case 4: t = "CD-ROM"[/code][code]        Case 5: t = "RAM [/code]磁盘[code]"[/code][code]    End Select[/code][code]    s = "[/code]驱动器[code] " & d.DriveLetter & ": - " & t[/code][code]    s = s & "<BR>" & "[/code]序列号：[code]" & [b]d.SerialNumber[/b][/code][code]ShowDriveInfo = s[/code][code]End Function[/code]