VBS教程:属性-SerialNumber 属性
程序员文章站
2022-04-29 09:25:56
serialnumber 属性返回十进制序列号,用于唯一标识一个磁盘卷。object.serialnumber...
serialnumber 属性
返回十进制序列号,用于唯一标识一个磁盘卷。
object.serialnumber
object 应为 drive 对象的名称。
说明
可以使用 serialnumber 属性以确保在可移动媒体驱动器中插入正确的磁盘。
以下代码举例说明如何使用 serialnumber 属性:
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 = "未知" case 1: t = "可移动" case 2: t = "固定" case 3: t = "网络" case 4: t = "cd-rom" case 5: t = "ram 磁盘" end select s = "驱动器 " & d.driveletter & ": - " & t s = s & "<br>" & "序列号:" & d.serialnumbershowdriveinfo = send function